OFFSET
1,2
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..500
MATHEMATICA
Join[{0}, Flatten[Table[Select[Sort[FromDigits/@Tuples[{1, 6}, i]], PrimeQ, 1], {i, 2, 20}]]] (* Harvey P. Dale, May 06 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
STATUS
approved