|
%I #35 Dec 16 2023 05:43:35
%S 36,72,144,216,288,432,576,864,900,1152,1296,1728,1800,2304,2592,3456,
%T 3600,4608,5184,5400,6912,7200,7776,9216,10368,10800,13824,14400,
%U 15552,18432,20736,21600,27000,27648,28800,31104,32400,36864,41472,43200,44100,46656,54000
%N Products of primorials that are squareful but not prime powers.
%C Proper subset of A055932.
%C Proper subset of A364710; contains k in {A025487 \ {A000079 U A002110}} that are not in A332785.
%C The only highly composite term is 36.
%H Michael De Vlieger, <a href="/A364930/b364930.txt">Table of n, a(n) for n = 1..15402</a> (All terms k <= A002110(16))
%F This sequence is A364710 \ A332785.
%F Intersection of A025487 and A286708.
%t (* Load May 19 2018 function f at A025487, then run the following: *)
%t Select[Union@ Flatten@ f[k], And[PrimeOmega[#] > PrimeNu[#] > 1, AllTrue[FactorInteger[#][[All, -1]], # > 1 &] ] &]
%Y Cf. A000079, A001694, A002110, A025487, A126706, A286708, A332785, A364710.
%K nonn,easy
%O 1,1
%A _Michael De Vlieger_, Dec 12 2023
|
