OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Select[FromDigits/@Select[Tuples[{3, 7, 9}, n], SubsetQ[#, {3, 7, 9}]&], PrimeQ], {n, 3, 5}]//Flatten (* Harvey P. Dale, Sep 15 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Rick L. Shepherd, Jun 01 2005
STATUS
approved