A278197 Partition numbers (A000041) of the form 2^3 * k for odd k.

56, 792, 8118264, 92669720, 150198136, 1188908248, 1844349560, 3163127352, 4351078600, 5371315400, 7346629512, 11097645016, 16670689208, 18440293320, 684957390936, 6622987708040, 51820051838712, 77195892663512, 133978259344888, 197726516681672

Offset

1,1

Comments

Also partition numbers having three times as many even divisors as odd divisors.

Links

Colin Barker, Table of n, a(n) for n = 1..1000

Mathematica

Select[PartitionsP@ Range@ 250, Count[#, k_ /; EvenQ@ k] == 3 Count[#, k_ /; OddQ@ k] &@ Divisors@ # &] (* Michael De Vlieger, Nov 15 2016 *)

Prog

(PARI) maxk=300; L=List(); for(k=1, maxk, p=numbpart(k); if(p%2^3==0 & p\2^3%2==1, listput(L, p))); Vec(L)

Crossrefs

Cf. A275029, A278196, A278198, A278199, A278200, A278201.

Sequence in context: A175602 A227059 A285155 * A182866 A008389 A338002

Adjacent sequences: A278194 A278195 A278196 * A278198 A278199 A278200

Keyword

nonn

Author

Colin Barker, Nov 15 2016

Status

approved