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