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,1

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.

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[#]} &]

Crossrefs

Cf. A013929, A024619, A126706, A360767, A361098, A363082, A364997, A364998, A364999.

Sequence in context: A348097 A345381 A328930 * A363082 A270660 A173490

Adjacent sequences: A364993 A364994 A364995 * A364997 A364998 A364999

Keyword

nonn

Author

Michael De Vlieger, Aug 26 2023

Status

approved