A378494 Intersection of A000379 and A026424.

8, 12, 18, 20, 27, 28, 32, 44, 45, 48, 50, 52, 63, 68, 75, 76, 80, 92, 98, 99, 112, 116, 117, 120, 124, 125, 147, 148, 153, 162, 164, 168, 171, 172, 175, 176, 188, 207, 208, 212, 236, 242, 243, 244, 245, 261, 264, 268, 270, 272, 275, 279, 280, 284, 292, 304, 312, 316

Offset: 1

Author

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

Keywords

• nonn

Comments

First differs from A187042 at n = 24, where a(24) = 120 is missing from A187042.

Links

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

Crossrefs

Cf. A000379, A026424, A187042, A378489.

Programs

Mathematica

A000379Q[k_] := k == 1 || EvenQ[Count[IntegerDigits[FactorInteger[k][[All, 2]], 2], 1, 2]];
A026424Q[k_] := OddQ[PrimeOmega[k]];
Select[Range[500], A000379Q[#] && A026424Q[#] &]