A356194 a(n) is the smallest multiple of n whose prime factorization exponents are all powers of 2.

1, 2, 3, 4, 5, 6, 7, 16, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 48, 25, 26, 81, 28, 29, 30, 31, 256, 33, 34, 35, 36, 37, 38, 39, 80, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 162, 55, 112, 57, 58, 59, 60, 61, 62, 63, 256, 65, 66, 67

Offset: 1

Author

Amiram Eldar, Jul 29 2022

Keywords

• nonn
• easy
• mult

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A138302, A353897.

Similar sequences: A053143, A053149, A053167, A066638, A087320, A087321, A197863, A356191, A356192, A356193.

Programs

Mathematica

f[p_, e_] := p^(2^Ceiling[Log2[e]]); a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100]

PARI

s(n) = {my(e=logint(n,2)); if(n == 2^e, n, 2^(e+1))};
a(n) = {my(f=factor(n)); prod(i=1, #f~, f[i,1]^s(f[i,2]))};

Formula

Multiplicative with a(p^e) = p^(2^ceiling(log_2(e))).

a(n) = n iff n is in A138302.