login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

A082559
G.f.: Product_{m>=1} 1/(1-x^m)^64.
3
1, 64, 2144, 49920, 905840, 13627264, 176638592, 2025205248, 20930373880, 197788352320, 1728062919232, 14083242424576, 107837287452608, 780481475916160, 5366307146732800, 35202669371599360, 221142159585764508, 1334633003840266624, 7760187771579170400
OFFSET
0,2
MAPLE
a:= proc(n) option remember; `if`(n=0, 1, add(
numtheory[sigma](j)*a(n-j), j=1..n)*64/n)
end:
seq(a(n), n=0..25); # Alois P. Heinz, Mar 12 2015
MATHEMATICA
a[n_] := a[n] = If[n == 0, 1, Sum[DivisorSigma[1, j]*a[n-j], {j, 1, n}]*64/n]; Table[a[n], {n, 0, 25}] (* Jean-François Alcover, Jan 13 2025, after Alois P. Heinz *)
CROSSREFS
Cf. 64th column of A144064.
Sequence in context: A017727 A089458 A283280 * A008790 A183432 A017211
KEYWORD
nonn,changed
AUTHOR
N. J. A. Sloane, May 04 2003
STATUS
approved