|
|
A320009
|
|
a(0) = 1; for n > 0, a(n) = A000005(n) * a(n-A000005(n)), where A000005(n) gives the number of divisors of n.
|
|
5
|
|
|
1, 1, 2, 2, 3, 4, 8, 8, 12, 24, 32, 48, 48, 96, 128, 192, 240, 384, 288, 768, 768, 1536, 1152, 3072, 1920, 3456, 4608, 12288, 6912, 24576, 9216, 49152, 27648, 98304, 36864, 196608, 110592, 393216, 147456, 786432, 221184, 1572864, 294912, 3145728, 884736, 4718592, 1179648, 9437184, 1474560, 3538944, 5308416, 37748736, 7077888, 75497472
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Nest[Append[#1, #2 #1[[-#2]] ] & @@ {#, DivisorSigma[0, Length@ #]} &, {1}, 53] (* Michael De Vlieger, Nov 25 2018 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|