|
| |
|
|
A073038
|
|
Take A000040, omit commas: 23571113171923..., select 5-digit primes seen when scanning from left.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A107650 A205751 A205473
Adjacent sequences: A073035 A073036 A073037 * A073039 A073040 A073041
|
|
|
KEYWORD
| easy,nonn,base
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Aug 22 2002
|
| |
|
|
