OFFSET
2,12
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 2..1000
MATHEMATICA
Count[IntegerDigits[#], 4]&/@FoldList[Times, 1, Prime[Range[90]]] (* Harvey P. Dale, Oct 12 2011 *)
PROG
(PARI) See program in Number of 0's in n#
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Feb 03 2003
STATUS
approved