OFFSET
1,1
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..500
MATHEMATICA
Table[SelectFirst[FromDigits[Join[#, {3}]]&/@Tuples[{3, 8}, n], PrimeQ], {n, 0, 20}] /.Missing["NotFound"]->0 (* Harvey P. Dale, Aug 27 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
STATUS
approved