|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|