OFFSET
0,4
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..100
MATHEMATICA
lps[n_]:=Module[{c=9^n}, Max[Select[FromDigits/@Flatten[Table[ Partition[ IntegerDigits[c], i, 1], {i, IntegerLength[c]-1, 1, -1}], 1], PrimeQ]]]; Join[ {0, 0, 0}, Array[lps, 20, 3]] (* Harvey P. Dale, May 07 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved