A278784 Numbers m such that A000041(m) is of the form 2^7 * k for odd k.
109, 230, 557, 675, 1094, 1679, 2070, 2314, 2594, 2781, 2873, 3133, 3498, 3548, 3595, 3601, 3629, 3911, 4059, 4171, 4264, 4274, 4501, 4568, 4878, 4889, 5112, 5136, 5507, 5675, 5907, 6059, 6152, 6260, 6490, 6667, 6669, 6938, 6961, 7667, 8013, 8640, 8729, 9171
Offset: 1
Keywords
Links
- Colin Barker, Table of n, a(n) for n = 1..100
Crossrefs
Programs
-
Mathematica
Select[Range[5000], IntegerExponent[PartitionsP[#], 2] == 7 &] (* Amiram Eldar, May 25 2024 *)
-
PARI
isok(n) = valuation(numbpart(n), 2)==7; select(n->isok(n), vector(9000, n, n))
Comments