A324911 Multiplicative with a(p^e) = A156552(p^e).

1, 1, 2, 3, 4, 2, 8, 7, 6, 4, 16, 6, 32, 8, 8, 15, 64, 6, 128, 12, 16, 16, 256, 14, 12, 32, 14, 24, 512, 8, 1024, 31, 32, 64, 32, 18, 2048, 128, 64, 28, 4096, 16, 8192, 48, 24, 256, 16384, 30, 24, 12, 128, 96, 32768, 14, 64, 56, 256, 512, 65536, 24, 131072, 1024, 48, 63, 128, 32, 262144, 192, 512, 32, 524288, 42, 1048576, 2048, 24, 384

Offset: 1

Author

Antti Karttunen, Apr 14 2019

Keywords

• nonn
• mult

Examples

			For n = 900 = 2^2 * 3^2 * 5^2, a(900) = A156552(4) * A156552(9) * A156552(25) = 3*6*12 = 216.
		

Links

• Antti Karttunen, Table of n, a(n) for n = 1..4096
• Index entries for sequences related to binary expansion of n
• Index entries for sequences computed from indices in prime factorization

Crossrefs

Cf. A156552, A324910, A324912.

Cf. also A324106.

Programs

PARI

A156552(n) = { my(f = factor(n), p2 = 1, res = 0); for(i = 1, #f~, p = 1 << (primepi(f[i, 1]) - 1); res += (p * p2 * (2^(f[i, 2]) - 1)); p2 <<= f[i, 2]); res }; \\ From A156552
A324911(n) = { my(f=factor(n)); prod(i=1, #f~, A156552(f[i,1]^f[i,2])); };