OFFSET
1,2
COMMENTS
Term a(16) has 309 digits (1025 bits).
This is not multiplicative. Even though a(2*3) = a(2)*a(3), a(2*7) = a(2)*a(7), and a(3*5) = a(3)*a(5), we still have a(2*5) = 18 <> a(2)*a(5) = 4*8 = 32.
MATHEMATICA
Array[If[# == 1, 1, Times @@ Flatten@ Map[Function[{p, e}, Map[Prime[Log2@ # + 1]^(2^(PrimePi@ p - 1)) &, DeleteCases[NumberExpand[e, 2], 0]]] @@ # &, FactorInteger[#]]] &@ DivisorSigma[1, #] &, 15] (* Michael De Vlieger, Jul 08 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 07 2020
STATUS
approved