OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..106
FORMULA
EXAMPLE
MAPLE
seq( add(op(2, j), j=op(2, (ifactors@A007408)(n))), n=1..28 );
A001222 := proc(n) numtheory[bigomega](n) ; end: b := fscanf("b007408.txt", "%d %d") : while b <> [] do printf("%d, ", A001222(op(2, b))) ; b := fscanf("b007408.txt", "%d %d") : od : # R. J. Mathar, May 18 2007
MATHEMATICA
Table[PrimeOmega[Numerator[Sum[1/k^3, {k, 1, n}]]], {n, 1, 50}] (* Amiram Eldar, Feb 09 2020 *)
PrimeOmega[Numerator[Accumulate[1/Range[50]^3]]] (* Harvey P. Dale, Aug 28 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 11 2006
EXTENSIONS
More terms from R. J. Mathar, May 18 2007
More terms from Amiram Eldar, Feb 09 2020
STATUS
approved