%I #12 Feb 03 2024 15:25:26
%S 12,18,20,24,28,40,44,45,52,56,60,63,68,76,84,88,90,92,99,104,116,117,
%T 120,124,126,132,136,140,148,150,152,153,156,164,168,171,172,175,176,
%U 180,184,188,198,204,207,208,212,220,228,232,234,236,244,248,260,261
%N Union of A360767 and A363082.
%H Michael De Vlieger, <a href="/A364996/b364996.txt">Table of n, a(n) for n = 1..10000</a>
%H Michael De Vlieger, <a href="/A364996/a364996.png">List of A126706(1..400)</a>, 20 in a row. Terms in this sequence are circled, while those in small colored circles appear in A361098. Blue represents numbers in A364702, purple A359280, and magenta A303606.
%H Michael De Vlieger, <a href="/A364996/a364996_1.png">Plot b(n) at (x,y) = (n mod 1024, -floor(n/1024))</a>, where terms in this sequence are shown in black, and those in A361098 appear in white.
%e This sequence is A126706 \ A361098.
%e Union of A364997, A364998, A364999.
%t Select[Select[Range[261], Nor[PrimePowerQ[#], SquareFreeQ[#]] &], Function[{k, f}, Function[{p, q, r}, Or[p r > k, q r > k]] @@ {f[[2, 1]], SelectFirst[Prime@ Range[PrimePi[f[[-1, 1]]] + 1], ! Divisible[k, #] &], Times @@ f[[All, 1]]}] @@ {#, FactorInteger[#]} &]
%Y Cf. A013929, A024619, A126706, A360767, A361098, A363082, A364997, A364998, A364999.
%K nonn
%O 1,1
%A _Michael De Vlieger_, Aug 26 2023