OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..75; all terms up to <= 2^23
MATHEMATICA
Position[Map[Mean[Total /@ #] &, #], _?IntegerQ][[All, 1]] &@ Nest[Function[{a, n}, Append[a, Join @@ Table[Flatten@ Prepend[#, n] & /@ a[[n - n/p]], {p, FactorInteger[n][[All, 1]]}]]] @@ {#, Length@ # + 1} &, {{{1}}}, 2^10 + 1] (* Michael De Vlieger, Apr 15 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 06 2020
STATUS
approved