|
|
A023339
|
|
Primes that remain prime through 5 iterations of function f(x) = 4x + 3.
|
|
1
|
|
|
9769, 13781, 17231, 32059, 32611, 36251, 46381, 47417, 55171, 68927, 103451, 130447, 182599, 189671, 220687, 236627, 241169, 273641, 275711, 350219, 374159, 413951, 471769, 497579, 498439, 520631, 521791, 583777, 601061, 635809, 647401
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes p such that 4*p+3, 16*p+15, 64*p+63, 256*p+255 and 1024*p+1023 are also primes. - Vincenzo Librandi, Aug 05 2010
|
|
LINKS
|
|
|
MATHEMATICA
|
it5Q[n_]:=AllTrue[NestList[4#+3&, n, 5], PrimeQ]; Select[Prime[ Range[ 60000]], it5Q] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 05 2015 *)
|
|
PROG
|
(Magma) [n: n in [1..10000000] | IsPrime(n) and IsPrime(4*n+3) and IsPrime(16*n+15) and IsPrime(64*n+63) and IsPrime(256*n+255) and IsPrime(1024*n+1023)] // Vincenzo Librandi, Aug 05 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|