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

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

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

Crossrefs

Cf. A000028, A028260, A066427, A378494.

Sequence in context: A320894 A122986 A066427 * A320891 A161697 A078593

Adjacent sequences: A378486 A378487 A378488 * A378490 A378491 A378492

Keyword

nonn

Author

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

Status

approved