This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A356194 #10 Jul 31 2022 07:46:36 %S A356194 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, %T A356194 26,81,28,29,30,31,256,33,34,35,36,37,38,39,80,41,42,43,44,45,46,47, %U A356194 48,49,50,51,52,53,162,55,112,57,58,59,60,61,62,63,256,65,66,67 %N A356194 a(n) is the smallest multiple of n whose prime factorization exponents are all powers of 2. %H A356194 Amiram Eldar, <a href="/A356194/b356194.txt">Table of n, a(n) for n = 1..10000</a> %F A356194 Multiplicative with a(p^e) = p^(2^ceiling(log_2(e))). %F A356194 a(n) = n iff n is in A138302. %t A356194 f[p_, e_] := p^(2^Ceiling[Log2[e]]); a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] %o A356194 (PARI) s(n) = {my(e=logint(n,2)); if(n == 2^e, n, 2^(e+1))}; %o A356194 a(n) = {my(f=factor(n)); prod(i=1, #f~, f[i,1]^s(f[i,2]))}; %Y A356194 Cf. A138302, A353897. %Y A356194 Similar sequences: A053143, A053149, A053167, A066638, A087320, A087321, A197863, A356191, A356192, A356193. %K A356194 nonn,easy,mult %O A356194 1,2 %A A356194 _Amiram Eldar_, Jul 29 2022