A278198 Partition numbers (A000041) of the form 2^4 * k for odd k.

176, 384276336, 2291320912, 5964539504, 10015581680, 290726957916112, 6486674127079088, 60105349839666544, 134819180623301520, 2332821198543892336, 14023788883518847344, 126891542690981418000, 320103136152993290544, 5852110108921301661040

Offset

1,1

Comments

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

Links

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A009722 A159442 A046189 * A164843 A268790 A077786

Adjacent sequences: A278195 A278196 A278197 * A278199 A278200 A278201

Keyword

nonn

Author

Colin Barker, Nov 15 2016

Status

approved