A364996 Union of A360767 and A363082.
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
Keywords
Examples
This sequence is A126706 \ A361098. Union of A364997, A364998, A364999.
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
- 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.
Programs
-
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[#]} &]