A073038 Take A000040, omit commas: 23571113171923..., select 5-digit primes seen when scanning from left.

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

Offset

1,1

Links

Table of n, a(n) for n=1..34.

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: A234661 A261778 A268278 * A107650 A291705 A244660

Adjacent sequences: A073035 A073036 A073037 * A073039 A073040 A073041

Keyword

easy,nonn,base

Author

Zak Seidov, Aug 22 2002

Status

approved