%I #64 Dec 16 2023 05:43:40

%S 8,16,30,32,64,72,96,128,144,192,210,216,256,288,384,420,432,480,512,

%T 576,768,864,900,960,1024,1080,1152,1296,1440,1536,1728,1800,1920,

%U 2048,2160,2304,2310,2592,2880,3072,3360,3456,3600,3840,4096,4320,4608,4620,5184

%N Products of primorials that are not highly composite.

%C Contains A000079(k), k > 2, and A002110(m), m > 2.

%C Proper subset of A055932, since A025487 is a proper subset of A055932.

%H Michael De Vlieger, <a href="/A363280/b363280.txt">Table of n, a(n) for n = 1..10503</a> (all terms k <= A002110(13))

%F This sequence is A025487 \ A002182.

%t (* Load May 19 2018 function f at A025487, then run the following: *)

%t s = Union@ Flatten@ f[10];

%t Reap[For[i = 1; r = 0, i <= Length[s], i++,

%t If[#2 > r, Set[r, #2], Sow[#1]] & @@ {#, DivisorSigma[0, #]} &@

%t s[[i]]] ][[-1, 1]]

%Y Cf. A000079, A002110, A002182, A025487, A055932.

%K nonn

%O 1,1

%A _Michael De Vlieger_, Dec 12 2023