OFFSET
1,1
COMMENTS
Because leading zeroes are permitted, some of the terms have less than three digits. The first single-digit term is a(371). - Harvey P. Dale, Feb 03 2019
EXAMPLE
In the sequence 2357111317192329... (primes without delimiters) 3-digit primes are: 571, 113, 131, 317,
MATHEMATICA
p200=Flatten[IntegerDigits[Prime[Range[200]]]]; n=3; (* 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]
Select[FromDigits/@Partition[Flatten[IntegerDigits/@Prime[ Range[ 50]]], 3, 1], PrimeQ] (* Harvey P. Dale, Feb 03 2019 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Aug 22 2002
EXTENSIONS
Definition clarified by Harvey P. Dale, Feb 03 2019
STATUS
approved