|
Search: id:A073038
|
|
|
| A073038 |
|
Take A000040, omit commas: 23571113171923..., select 5-digit primes seen when scanning from left. |
|
+0
1
|
|
| 11131, 11317, 13171, 23293, 74143, 14347, 96167, 98389, 71011, 1103, 7109, 13127, 31271, 12713, 37139, 51157, 57163, 17317, 79181, 91811, 18119, 91193, 19319, 23227, 39241, 51257, 26927, 27127, 81283, 32933, 93307, 33073, 31337, 53359
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
In the sequence 2357111317192329... (primes without delimiters) 5-digit primes are: 11131, 11317, 13171,
|
|
MATHEMATICA
|
p200=Flatten[IntegerDigits[Prime[Range[200]]]]; n=5; (* n-digit primes!*) pn=Partition[p200, n, 1]; ln=Length[pn]; tab=Table[Sum[10^(n-k)*pn[[i, k]], {k, n}], {i, ln}]; Select[tab, PrimeQ]
|
|
CROSSREFS
|
Sequence in context: A115810 A154807 A076164 this_sequence A107650 A001727 A135015
Adjacent sequences: A073035 A073036 A073037 this_sequence A073039 A073040 A073041
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Aug 22 2002
|
|
|
Search completed in 0.002 seconds
|
