OFFSET
2,2
LINKS
Robert Israel, Table of n, a(n) for n = 2..2374
EXAMPLE
A001222(2) = 1, A001222(3) = 1, A001222(4) = 2, so a(4) = (1*1*2)*(1+1+1/2)=5. - Robert Israel, Dec 29 2015
MAPLE
P:= 1: S:= 0:
for n from 2 to 100 do
b:= numtheory:-bigomega(n);
P:= P*b; S:= S + 1/b;
A[n]:= P*S;
od:
seq(A[n], n=2..100); # Robert Israel, Dec 29 2015
MATHEMATICA
Table[Product[PrimeOmega[k], {k, 2, n}] * Sum[1/PrimeOmega[k], {k, 2, n}], {n, 2, 50}] (* Vaclav Kotesovec, Dec 30 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 30 2002
EXTENSIONS
Name and offset corrected by Robert Israel, Dec 29 2015
STATUS
approved