OFFSET
1,2
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..500
MATHEMATICA
Table[SelectFirst[FromDigits/@Tuples[{1, 9}, n], PrimeQ], {n, 20}]/. Missing["NotFound"]->0 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 26 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
STATUS
approved