OFFSET
0,3
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
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 *)
PROG
(PARI) a(n) = omega(n!) + bigomega(n!);
CROSSREFS
KEYWORD
easy,nonn,changed
AUTHOR
Cino Hilliard, Jan 29 2006
STATUS
approved