A318312 Multiplicative with a(p^e) = 2^A000041(e).

1, 2, 2, 4, 2, 4, 2, 8, 4, 4, 2, 8, 2, 4, 4, 32, 2, 8, 2, 8, 4, 4, 2, 16, 4, 4, 8, 8, 2, 8, 2, 128, 4, 4, 4, 16, 2, 4, 4, 16, 2, 8, 2, 8, 8, 4, 2, 64, 4, 8, 4, 8, 2, 16, 4, 16, 4, 4, 2, 16, 2, 4, 8, 2048, 4, 8, 2, 8, 4, 8, 2, 32, 2, 4, 8, 8, 4, 8, 2, 64, 32, 4, 2, 16, 4, 4, 4, 16, 2, 16, 4, 8, 4, 4, 4, 256, 2, 8, 8, 16, 2, 8, 2, 16, 8, 4, 2, 32, 2, 8, 4, 64

Offset: 1

Author

Antti Karttunen, Aug 30 2018

Keywords

• nonn
• mult

Links

• Antti Karttunen, Table of n, a(n) for n = 1..16384
• Index entries for sequences computed from exponents in factorization of n

Crossrefs

Cf. A000041, A008481.

Differs from A318474 for the first time at n=32, where a(32) = 128, while A318474(32) = 256.

Programs

PARI

A318312(n) = factorback(apply(e -> 2^numbpart(e),factor(n)[,2]));

Formula

a(n) = 2^A008481(n).