Afgøre om et tal er et primtal.

Så vidt jeg ved findes der ikke en sådan funktion i Excel.

Du kunne jo prøve denne her:
=IF(((MOD(A8,2)<>0)*(MOD(A8,3)<>0)*(MOD(A8,5)<>0)*(MOD(A8,7)<>0)),"Primtal","AlmTal")

Flemming. Den gælder kun meget små tal! Den vil fx kalde 143 for et primtal :-)

ja, det har du jo ret i.

Dem med tid og interesse kan kigge efter løsningen her:

http://www.google.dk/groups?num=100&hl=da&lr=&ie=UTF-8&oe=UTF-8&q=prime+numbers+group%3Amicrosoft.public.excel.*&btnG=Google-s%C3%B8gning

eller her

http://www.google.dk/groups?num=100&hl=da&lr=&ie=UTF-8&oe=UTF-8&q=prime+number+group%3Amicrosoft.public.excel.*

Hvor store tal drejer det sig om ?

Function Primtal(Tal As Long)

Dim lngAntal As Long

Dim lngHalva As Long

lngHalva = Tal / 2 + 1

For lngAntal = 2 To lngHalva

  If (Tal Mod lngAntal) = 0 Then

    Primtal = ""

    Exit Function

  End If

Next

Primtal = "Primtal"

End Function


fundet her http://www.kentexcel.com/VB-tips.htm#Primtal

>Jkrons
Tja, det lader til du har ret. Det er bare underligt at Derive (det program der ligger på min TI-89'er) både kan afgøre om et tal er primtal, samt opløse pænt store tal i alle dets primfaktorer på et par sekunder, og så kan Excel ingen af delene???

>Flemmingdahl
Din løsning er selvfølgelig kun brugbar på rimelig små tal, men det er dog en Excel-løsning uden makroer, og udvider jeg den med de følgende primtal op til 31 er det faktisk nok til at løse det konkrete problem jeg arbejder med.

>Blackadder
I det konkrete tilfælde er det kun tal <= 1000.

>Kabbak
Tak for funktionen, men det er ikke lige det jeg står og mangler.

>Kabbak
Desuden er funktionen ikke så effektiv. Den tester alle tal fra 2 til X/2. Faktisk er det rigeligt at teste op til kvadratroden af X. Desuden ville det være smart kun at teste de ulige tal da der jo ikke findes lige primtal > 2.

Photop, du kan bruge denne array-formel:

=OR(A6=2;A6=3;ISNA(MATCH(TRUE;A6/ROW(INDIRECT("2:"&INT(SQRT(A6))))=INT(A6/ROW(INDIRECT("2:"&INT(SQRT(A6)))));0)))

Den returner SAND, hvis tallet i A6 er et primtal og ellers FALSK.

Formlen skal "afleveres" med CTRL+SHFT+ENTER, hvorved der kommer nogle turborgklammer om formlen.
Sig til, hvis du skal have den oversat til dansk.

Formlen kan teste tal op til 65.535^2, som er det maksimale array-størrelse i Excel 97/2000.

>Janvogt
Spændende - men jeg vil gerne have den oversat til DK.
OR, TRUE og ROW giver sig selv
INT = HELTAL
SQRT = KVROD
MATCH = SAMMENLIGN ???
INDIRECT = INDIREKTE ???

Men ISNA har jeg ikke noget bud på.

I øvrigt skal jeg da vist læse lidt på Array-formler - har jeg aldrig arbejdet med i Excel før! Når jeg har skrevet formlen skal jeg altså trykke CTRL+SHFT+ENTER i stedet for ENTER som jeg plejer?!?

ISNA = ER.IKKE.TILGÆNGELIG

Derudover har du ret i de andre.

Ja, det må være noget lignende:

{=ELLER(A5=2;A5=3;ER.IKKE.TILGÆNGELIG(SAMMENLIGN(
SAND;A5/RÆKKE(INDIREKTE("2:"&HELTAL(KVROD(A5))))
=HELTAL(A5/RÆKKE(INDIREKTE("2:"&HELTAL(KVROD(A5)))));0)))}

Ja præcis, du skal trykke CTRL+SHFT+ENTER i stedet for ENTER.

Formlen fungerer ved, at alle potentielle prim-faktorer divideres op i tallet, og array-resultatet testes for at se, om det er et helt tal.
Er det IKKE et helt tal, er tallet et primtal.

Kanon - det fungerer jo perfekt.

Det eneste der mangler er min forståelse. Det må være i argumentet til INDIREKTE at array-delen kommer ind - eftersom ethvert ikke-primtal har mindst en primfaktor mellem 2 og kvadratroden af tallet selv.
Men syntax'en i argumentet til INDIREKTE fatter jeg ikke!

Primtal er en vidunderlig ting :-)

2^20996011-1 er det størst kendte Mersenneprimtal, altså et primtal udregnet efter formlen 2^P-1.

Tallet har mere en 6,3 millioner cifre og ville fylde mere end 1.500 A4 sider udskrevet :-)  Bare til almindelig info.

Den "klassiske" måde at gøre det på er ved hjælp af en algoritme der hedder
"Sieve of Eratosthenes". Her implementeret som en VBA funktion.

----------------------
Option Base 1

Function isPrime(n As Integer) As Boolean

Dim primeArray() As Boolean
ReDim primeArray(n)
Dim i As Integer
Dim j As Integer

For i = 1 To n
    primeArray(i) = True
Next i
primeArray(1) = False

For i = 2 To Sqr(n)
    For j = i + 1 To n
        If j Mod i = 0 And primeArray(j) <> False Then
            primeArray(j) = False
        End If
    Next j
Next i

isPrime = primeArray(n)

End Function
-----------------