login
A364996
Union of A360767 and A363082.
5
12, 18, 20, 24, 28, 40, 44, 45, 52, 56, 60, 63, 68, 76, 84, 88, 90, 92, 99, 104, 116, 117, 120, 124, 126, 132, 136, 140, 148, 150, 152, 153, 156, 164, 168, 171, 172, 175, 176, 180, 184, 188, 198, 204, 207, 208, 212, 220, 228, 232, 234, 236, 244, 248, 260, 261
OFFSET
1,1
LINKS
Michael De Vlieger, List of A126706(1..400), 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.
Michael De Vlieger, Plot b(n) at (x,y) = (n mod 1024, -floor(n/1024)), where terms in this sequence are shown in black, and those in A361098 appear in white.
EXAMPLE
This sequence is A126706 \ A361098.
Union of A364997, A364998, A364999.
MATHEMATICA
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[#]} &]
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Aug 26 2023
STATUS
approved