A111399 Numbers in A048945 but not in A111398.

120, 168, 210, 216, 256, 264, 270, 280, 312, 330, 360, 378, 384, 390, 408, 420, 440, 456, 462, 480, 504, 510, 520, 540, 546, 552, 570, 594, 600, 616, 630, 640, 660, 672, 680, 690, 696, 702, 714, 728, 744, 750, 756, 760, 770, 780, 792, 798, 840

Offset: 1

Author

Ant King, Nov 11 2005

Keywords

• nonn

Links

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

Crossrefs

Cf. A048945, A111398.

Programs

Mathematica

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 *)

PARI

isok(n) = {prd = 1; fordiv(n, d, prd = prd*d); ispower(prd, 4) && (prd != n^4);}  \\ Michel Marcus, Oct 04 2013

Extensions

More terms from Michel Marcus, Oct 04 2013