OFFSET
1,1
COMMENTS
See the references in A008578 for a discussion concerning the zeroth prime.
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..66 (n = 1..31 from Robert G. Wilson v)
MATHEMATICA
c = 0; k = 1; lst = {}; fQ[n_] := ( c == Times @@ (IntegerDigits@ n /. {0 -> 1, 1 -> 2, 2 -> 3, 3 -> 5, 4 -> 7, 5 -> 11, 6 -> 13, 7 -> 17, 8 -> 19, 9 -> 23}) ); While[k < 6000000000, If[PrimeQ@k, c++, If[ fQ@k, AppendTo[lst, k]; Print@k]]; k++ ]; lst
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Apr 30 2009
STATUS
approved