|
| |
|
|
A023356
|
|
Numbers n such that n remains prime through 5 iterations of function f(x) = 10x + 3.
|
|
0
| |
|
|
10061, 20071, 161093, 200713, 291419, 564979, 600791, 606839, 693079, 1826519, 1876807, 2106407, 2249207, 2471471, 3335369, 3955499, 4542547, 4765609, 4829603, 4955981, 5090507, 5534993, 5866247, 5987921, 6091213, 6399521, 6519613, 6522539
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| n, 10*n+3, 100*n+33, 1000*n+333, 10000*n+3333 and 100000*n+33333 are primes. [From Vincenzo Librandi (vincenzo.librandi(AT)tin.it), Aug 05 2010]
|
|
|
MATHEMATICA
| ok5Q[n_]:=And@@PrimeQ/@Rest[NestList[10#+3&, n, 5]]; Select[Prime[ Range[500000]], ok5Q] (* From Harvey P. Dale, Mar 28 2011 *)
|
|
|
PROG
| (MAGMA) [n: n in [1..19000000] | IsPrime(n) and IsPrime(10*n+3) and IsPrime(100*n+33) and IsPrime(1000*n+333) and IsPrime(10000*n+3333) and IsPrime(100000*n+33333)] [From Vincenzo Librandi (vincenzo.librandi(AT)tin.it), Aug 05 2010]
|
|
|
CROSSREFS
| Sequence in context: A097648 A188663 A203089 * A198484 A203865 A145836
Adjacent sequences: A023353 A023354 A023355 * A023357 A023358 A023359
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
| |
|
|
