2,12
Vincenzo Librandi, Table of n, a(n) for n = 2..1000
DigitCount[#, 10, 7]&/@Rest[FoldList[Times, 1, Prime[Range[100]]]] (* Vincenzo Librandi, Apr 07 2014 *)
(PARI) See program in Number of 0's in n#
Cf. A002110.
Sequence in context: A046800 A027350 A029327 * A271315 A212813 A112219
Adjacent sequences: A079132 A079133 A079134 * A079136 A079137 A079138
easy,nonn
Cino Hilliard, Feb 03 2003
approved