OFFSET
0,2
LINKS
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
KEYWORD
nonn,changed
AUTHOR
N. J. A. Sloane, May 04 2003
STATUS
approved