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 A111399 #11 Jan 02 2021 04:50:20
%S A111399 120,168,210,216,256,264,270,280,312,330,360,378,384,390,408,420,440,
%T A111399 456,462,480,504,510,520,540,546,552,570,594,600,616,630,640,660,672,
%U A111399 680,690,696,702,714,728,744,750,756,760,770,780,792,798,840
%N A111399 Numbers in A048945 but not in A111398.
%H A111399 Amiram Eldar, <a href="/A111399/b111399.txt">Table of n, a(n) for n = 1..10000</a>
%t A111399 q[n_] := Module[{e = FactorInteger[n][[;; , 2]], prod}, (prod = Times @@ (e + 1)) != 8 && Divisible[prod * GCD @@ e, 8] ]; Select[Range[840], q] (* _Amiram Eldar_, Jan 02 2021 *)
%o A111399 (PARI) isok(n) = {prd = 1; fordiv(n, d, prd = prd*d); ispower(prd, 4) && (prd != n^4);} \\ _Michel Marcus_, Oct 04 2013
%Y A111399 Cf. A048945, A111398.
%K A111399 nonn
%O A111399 1,1
%A A111399 _Ant King_, Nov 11 2005
%E A111399 More terms from _Michel Marcus_, Oct 04 2013