OFFSET
1,3
COMMENTS
LINKS
MATHEMATICA
Array[If[# == 1, 0, DivisorSigma[0, #] &@ Floor@ Total@ Flatten@ MapIndexed[#1 2^(#2 - 1) &, Flatten[Table[2^(PrimePi@ #1 - 1), {#2}] & @@@ FactorInteger@ #]]] &, 105] (* Michael De Vlieger, Mar 11 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 18 2019
STATUS
approved