|
|
A023300
|
|
Primes that remain prime through 3 iterations of function f(x) = 10x + 3.
|
|
1
|
|
|
2, 7, 17, 19, 23, 61, 101, 103, 409, 719, 857, 997, 1297, 1531, 1699, 2399, 3253, 3491, 4583, 4933, 5119, 5189, 5939, 6277, 6863, 7789, 8669, 9187, 9887, 10061, 10253, 10267, 11027, 11777, 12791, 12899, 13669, 17209, 17293, 17489, 17839, 19211, 19379
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes p such that 10*p+3, 100*p+33 and 1000*p+333 are also primes. - Vincenzo Librandi, Aug 04 2010
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[2200]], And@@PrimeQ[NestList[10#+3&, #, 3]]&] (* Harvey P. Dale, Feb 21 2013 *)
|
|
PROG
|
(Magma) [n: n in [1..450000] | IsPrime(n) and IsPrime(10*n+3) and IsPrime(100*n+33) and IsPrime(1000*n+333)] // Vincenzo Librandi, Aug 04 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|