A073062 Take A000040, omit commas: 235711131719232931374143,... select first n-digit prime.

2, 23, 571, 2357, 11131, 711131, 1923293, 35711131, 711131719, 4753596167, 23571113171, 379838997101, 7535961677173, 29313741434753, 571113171923293, 7414347535961677, 57111317192329313, 167717379838997101

Offset

1,1

Links

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

Example

In the sequence 235711131719232931... (primes without delimiters) first 1-digit, 3-digit and 6-digit primes are 2,571,711131.

Mathematica

p200=Flatten[IntegerDigits[Prime[Range[200]]]]; pn := Partition[p200, n, 1]; ln=Length[pn]; tab := Table[Sum[10^(n-k)*pn[[i, k]], {k, n}], {i, ln}]; Do[Print[{n, Select[tab, PrimeQ][[1]]}], {n, 20}]

Crossrefs

Sequence in context: A090731 A090314 A084322 * A015098 A269021 A136039

Adjacent sequences: A073059 A073060 A073061 * A073063 A073064 A073065

Keyword

easy,nonn,base

Author

Zak Seidov, Aug 22 2002

Status

approved