login
A335913
a(n) = A225546(sigma(n)).
1
1, 4, 3, 256, 8, 12, 6, 64, 4294967296, 18, 12, 768, 512, 24, 24
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.
FORMULA
a(n) = A225546(A000203(n)).
A048675(a(n)) = A331750(n).
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 *)
PROG
(PARI) A335913(n) = A225546(sigma(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 07 2020
STATUS
approved