A079133 - OEIS

%I #6 Apr 07 2014 03:52:57

%S 0,1,0,0,0,0,0,2,0,3,1,0,1,2,1,0,2,1,1,4,2,3,4,4,3,6,4,4,6,8,5,5,4,8,

%T 6,5,5,13,7,9,6,7,6,6,6,9,6,9,8,6,7,8,7,10,9,12,10,12,6,11,9,6,12,7,

%U 16,21,17,10,21,12,21,14,11,15,17,26,14,14,18,18,19,12,18,16,17,25,17,15,11

%N Number of 6's in n# (n primorial) = 6's in A002110(n).

%H Vincenzo Librandi, <a href="/A079133/b079133.txt">Table of n, a(n) for n = 2..1000</a>

%t DigitCount[#, 10, 6]&/@Rest[FoldList[Times, 1, Prime[Range[100]]]] (* _Vincenzo Librandi_, Apr 07 2014 *)

%o (PARI) See program in Number of 0's in n#

%Y Cf. A002110.

%K easy,nonn

%O 2,8

%A _Cino Hilliard_, Feb 03 2003