OFFSET
1,1
COMMENTS
Starting numbers in concatenations are given by A052080.
If n is divisible by 3, a(n)=0. - Harvey P. Dale, Jun 03 2019
LINKS
C. Rivera, Prime Puzzle 78
MATHEMATICA
Table[Min[Select[FromDigits[Flatten[IntegerDigits[#]]]&/@ Partition[ Range[ 1000, 1, -1], n, 1], PrimeQ]], {n, 20}]/.\[Infinity]->0 (* Harvey P. Dale, Jun 03 2019 *)
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
Patrick De Geest, Jan 15 2000
EXTENSIONS
Terms for n>6 calculated by Carlos Rivera and Felice Russo
STATUS
approved