OFFSET
1,4
COMMENTS
a(n) is the number of ways to choose an integer partition of a divisor of A052409(n).
LINKS
FORMULA
EXAMPLE
The a(16) = 8 twice-factorizations are (2)*(2)*(2)*(2), (2)*(2)*(2*2), (2)*(2*2*2), (2*2)*(2*2), (2*2*2*2), (4)*(4), (4*4), (16).
MATHEMATICA
Table[DivisorSum[GCD@@FactorInteger[n][[All, 2]], PartitionsP], {n, 100}]
PROG
(PARI)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 30 2017
EXTENSIONS
More terms from Antti Karttunen, Jul 29 2018
STATUS
approved