A079113 - OEIS

%I #13 Jul 21 2025 21:41:02

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

%T 9,8,9,4,9,6,5,4,6,7,6,11,8,7,16,11,6,8,12,8,12,8,12,4,16,11,4,15,14,

%U 15,11,15,14,8,13,20,10,8,18,14,15,14,16,14,16,12,22,17,17,15,17,17,20,14,16,21,25

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

%H Alois P. Heinz, <a href="/A079113/b079113.txt">Table of n, a(n) for n = 0..10000</a> (999 terms from Vincenzo Librandi)

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

%o (PARI) \\ See program in A079099.

%Y Cf. A002110, A079099.

%K nonn,base,easy

%O 0,7

%A _Cino Hilliard_, Feb 03 2003

%E Offset corrected by _Alois P. Heinz_, Jul 21 2025