OFFSET
1,1
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..500
MATHEMATICA
Flatten[Join[{5, 0}, Table[Select[FromDigits/@(Join[#, {7}]&/@Tuples[ {5, 7}, n]), PrimeQ, 1], {n, 2, 20}]]] (* Harvey P. Dale, Mar 08 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
EXTENSIONS
More terms from Harvey P. Dale, Mar 08 2013
STATUS
approved