OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..500
MATHEMATICA
Flatten[Table[Select[FromDigits/@Tuples[{4, 7}, n], PrimeQ, 1], {n, 22}]/.{}->{0}] (* Harvey P. Dale, Jun 28 2012 *)
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
STATUS
approved