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
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Aug 22 2002
STATUS
approved