OFFSET
0,1
LINKS
M. F. Hasler, Table of n, a(n) for n = 0..200
MATHEMATICA
fp[n_]:=Select[Join[10*n+{1, 7}, 100*n+Range[1, 99, 2]], PrimeQ, 1]; With[{ns=Table[FromDigits[PadRight[{}, n, 9]], {n, 20}]}, Join[{2}, Flatten[fp/@ns]]] (* Harvey P. Dale, May 12 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Nov 28 2001
EXTENSIONS
Corrected by Don Reble, Jan 17 2007
Offset corrected by Sean A. Irvine, Sep 06 2023
STATUS
approved