login
A073062
Take A000040, omit commas: 235711131719232931374143,... select first n-digit prime.
1
2, 23, 571, 2357, 11131, 711131, 1923293, 35711131, 711131719, 4753596167, 23571113171, 379838997101, 7535961677173, 29313741434753, 571113171923293, 7414347535961677, 57111317192329313, 167717379838997101
OFFSET
1,1
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
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Aug 22 2002
STATUS
approved