A113903 Sum of omega(n!) and bigomega(n!).
0, 0, 2, 4, 6, 8, 10, 12, 15, 17, 19, 21, 24, 26, 28, 30, 34, 36, 39, 41, 44, 46, 48, 50, 54, 56, 58, 61, 64, 66, 69, 71, 76, 78, 80, 82, 86, 88, 90, 92, 96, 98, 101, 103, 106, 109, 111, 113, 118, 120, 123, 125, 128, 130, 134, 136, 140, 142, 144, 146, 150, 152, 154, 157
Offset: 0
Links
- Robert Israel, Table of n, a(n) for n = 0..10000
Crossrefs
Programs
-
Maple
p:= 0: w:= 0: R:= 0: for n from 1 to 100 do if isprime(n) then p:= p+1 fi; w:= w+numtheory:-bigomega(n); R:= R, p+w od: R; # Robert Israel, Nov 21 2024
-
Mathematica
Join[{0}, Accumulate[Array[Boole[PrimeQ[#]] + PrimeOmega[#] &, 100]]] (* Paolo Xausa, Nov 22 2024 *) -
PARI
a(n) = omega(n!) + bigomega(n!);