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

Author

Zak Seidov, Aug 22 2002

Keywords

• easy
• nonn
• base

Examples

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

Programs

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}]