OFFSET
1,1
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..500
MATHEMATICA
Flatten[Table[Select[FromDigits/@Tuples[{1, 3}, n], PrimeQ, 1], {n, 18}]] (* Harvey P. Dale, Jul 23 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
EXTENSIONS
Corrected by Harvey P. Dale, Jul 23 2012
STATUS
approved