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