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

2357, 3571, 5711, 3137, 7717, 8389, 1103, 1031, 7109, 1091, 911, 2713, 9151, 1511, 1571, 3167, 9181, 1811, 1193, 1931, 9319, 9719, 1223, 7229, 3323, 9241, 7127, 1277, 1283, 8329, 3307, 1733, 7331, 3313, 3373, 7349, 3533, 3359, 3593, 3673, 6737, 3733

Offset

1,1

Links

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

Example

In the sequence 2357111317192329... (primes without delimiters) 4-digit primes are: 2357, 3571, 5711, 3137, 7717, ...

Mathematica

p200=Flatten[IntegerDigits[Prime[Range[200]]]]; n=4; (* 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]
FromDigits/@Select[Partition[Flatten[IntegerDigits[Prime[Range[100]]]], 4, 1], PrimeQ[FromDigits[#]]&] (* Harvey P. Dale, Mar 21 2013 *)

Crossrefs

Sequence in context: A346940 A134966 A108419 * A160403 A156987 A101251

Adjacent sequences: A073034 A073035 A073036 * A073038 A073039 A073040

Keyword

easy,nonn,base

Author

Zak Seidov, Aug 22 2002

Status

approved