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,1

Links

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

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

Prog

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

Crossrefs

Cf. A048945, A111398.

Sequence in context: A316835 A179642 A099832 * A030634 A272594 A189975

Adjacent sequences: A111396 A111397 A111398 * A111400 A111401 A111402

Keyword

nonn

Author

Ant King, Nov 11 2005

Extensions

More terms from Michel Marcus, Oct 04 2013

Status

approved