A378489 Intersection of A000028 and A028260.

4, 9, 16, 24, 25, 40, 49, 54, 56, 60, 81, 84, 88, 90, 96, 104, 121, 126, 132, 135, 136, 140, 150, 152, 156, 160, 169, 184, 189, 198, 204, 220, 224, 228, 232, 234, 240, 248, 250, 256, 260, 276, 289, 294, 296, 297, 306, 308, 315, 328, 336, 340, 342, 344, 348, 350

Offset: 1

Author

Paolo Xausa, Nov 28 2024, following a suggestion from Peter Munn

Keywords

• nonn

Comments

First differs from A066427 at n = 11, where A066427(11) = 72 is missing from this sequence.

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000028, A028260, A066427, A378494.

Programs

Mathematica

A000028Q[k_] := k > 1 && OddQ[Count[IntegerDigits[FactorInteger[k][[All, 2]], 2], 1, 2]];
A028260Q[k_] := EvenQ[PrimeOmega[k]];
Select[Range[500], A000028Q[#] && A028260Q[#] &]