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 A075090 #32 May 04 2022 11:06:42
%S A075090 4,8,16,32,36,64,100,128,144,196,216,256,324,400,484,512,576,676,784,
%T A075090 900,1000,1024,1156,1296,1444,1600,1728,1764,1936,2048,2116,2304,2500,
%U A075090 2704,2744,2916,3136,3364,3600,3844,4096,4356,4624,4900,5184,5476,5776,5832
%N A075090 Even perfect powers: numbers of the form (2*m)^k for some m>=1 and k>=2.
%H A075090 Reinhard Zumkeller, <a href="/A075090/b075090.txt">Table of n, a(n) for n = 1..10000</a>
%F A075090 Sum_{n>=1} 1/a(n) = -Sum_{k>=2} mu(k)*zeta(k)/2^k = 0.5854268109... - _Amiram Eldar_, Dec 19 2020
%p A075090 q:= n-> n::even and igcd(seq(i[2], i=ifactors(n)[2]))>1:
%p A075090 select(q, [$1..6000])[]; # _Alois P. Heinz_, May 04 2022
%t A075090 Take[Union[Flatten[Table[a^b, {a, 2, 100, 2}, {b, 2, 15}]]], 50] (* _Alonso del Arte_, Nov 22 2011 *)
%o A075090 (Haskell)
%o A075090 a075090 n = a075090_list !! (n-1)
%o A075090 a075090_list = filter even a001597_list -- _Reinhard Zumkeller_, Oct 04 2012
%o A075090 (PARI) isok(m) = !(m%2) && ispower(m); \\ _Michel Marcus_, May 03 2022
%Y A075090 Intersection of A005843 and A001597.
%Y A075090 Cf. A008683, A075109.
%K A075090 easy,nonn
%O A075090 1,1
%A A075090 _Zak Seidov_, Oct 11 2002
%E A075090 Name formula corrected by _Kevin Ryde_, May 04 2022