OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
seq(mul(2*t, t=numtheory:-divisors(n)), n=1..100); # Robert Israel, Feb 01 2019
MATHEMATICA
Table[Times@@Select[Divisors[2n], EvenQ], {n, 50}] (* Harvey P. Dale, Jul 19 2011 *)
a[n_] := 2^(d = DivisorSigma[0, n]) * n^(d/2); Array[a, 100] (* Amiram Eldar, Jun 26 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jul 14 2008
STATUS
approved