|
|
A278780
|
|
Numbers m such that A000041(m) is of the form 2^3 * k for odd k.
|
|
7
|
|
|
11, 21, 75, 94, 98, 116, 120, 125, 128, 130, 133, 137, 141, 142, 180, 206, 231, 236, 243, 248, 255, 268, 292, 297, 303, 305, 322, 334, 340, 350, 364, 386, 397, 413, 415, 469, 471, 487, 494, 515, 550, 554, 605, 606, 609, 628, 631, 662, 676, 692, 699, 744, 745
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Numbers m such that A278478(m) = 3.
Also numbers m such that A000041(m) has three times as many even divisors as odd divisors.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[750], IntegerExponent[PartitionsP[#], 2] == 3 &] (* Amiram Eldar, May 25 2024 *)
|
|
PROG
|
(PARI) isok(n) = valuation(numbpart(n), 2)==3;
select(n->isok(n), vector(1000, n, n))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|