A278201 Partition numbers (A000041) of the form 2^7 * k for odd k.

541946240, 47826239745920, 49760750604354432757376, 18426207875324210441995136, 914345304752746677204951178080640, 377394877138559089794329589034333523822720, 33381228189530831120385246576357623531476650368, 23951815370456759593096244705083096637451017834880

Offset

1,1

Comments

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

Links

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A122970 A362870 A204779 * A172619 A090468 A214480

Adjacent sequences: A278198 A278199 A278200 * A278202 A278203 A278204

Keyword

nonn

Author

Colin Barker, Nov 15 2016

Status

approved