OFFSET
1,1
COMMENTS
The sequence allows leading zeroes, so for example 03 = 3 is treated as a valid two-digit prime. - Harvey P. Dale, May 06 2023
EXAMPLE
In the sequence 2357111317192329... (primes without delimiters) two-digit primes are 23, 71, 11, 11, 13, 31, 17,
MATHEMATICA
p200=Flatten[IntegerDigits[Prime[Range[200]]]]; n=2; (* 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]
Module[{nn=100, prs}, prs=Flatten[IntegerDigits/@Prime[Range[nn]]]; Select[FromDigits/@ Partition[prs, 2, 1], PrimeQ]] (* Harvey P. Dale, May 06 2023 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Aug 22 2002
STATUS
approved