|
%I #7 Feb 07 2020 09:04:13
%S 0,1,1,2,1,2,3,2,2,3,2,4,3,3,4,2,3,3,5,4,4,3,5,3,4,4,6,5,3,5,4,4,6,4,
%T 5,5,3,7,4,6,4,6,5,5,7,5,6,4,6,5,4,8,5,7,5,7,6,6,4,8,6,5,7,5,7,6,5,9,
%U 6,8,6,4,8,7,5,7,6,5,9,7,6,8,6,8,7,6,10,7,5,9,7,6,5,9,8,6,8,7,6,10,8,7,9,7
%N Total number of prime factors of n-th 5-smooth number.
%H Amiram Eldar, <a href="/A112759/b112759.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A001222(A051037(n));
%F a(n) = A112760(n) + A112761(n) + A112762(n).
%t PrimeOmega @ Select[Range[3000], Last @ Map[First, FactorInteger[#]] <= 5 &] (* _Amiram Eldar_, Feb 07 2020 *)
%Y Cf. A001222, A051037, A069352, A112754, A112758, A112760, A112761, A112762.
%K nonn
%O 1,4
%A _Reinhard Zumkeller_, Sep 18 2005
|
