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

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

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

Crossrefs

Cf. A000379, A026424, A187042, A378489.

Sequence in context: A376703 A066428 A228056 * A187042 A370650 A285508

Adjacent sequences: A378491 A378492 A378493 * A378495 A378496 A378497

Keyword

nonn

Author

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

Status

approved