OFFSET
1,1
LINKS
Paul Tek, Table of n, a(n) for n = 1..10000
MATHEMATICA
With[{e = 6}, TakeWhile[Select[Function[s, Union@ Flatten@ Map[Function[k, Map[FromDigits@ Flatten@ IntegerDigits@ # &, Partition[Take[s, 10^(e - k)], k, 1]]], Range[2, e]]]@ Range[10^e], PrimeQ], IntegerLength@ # <= e &]] (* Michael De Vlieger, Apr 23 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 15 2000
EXTENSIONS
Initial data corrected by Paul Tek, May 07 2013
STATUS
approved