A079032 Smallest nontrivial partition number divisible by the n-th partition number.

2, 22, 15, 15, 42, 22, 30, 176, 133230930, 2436, 8118264, 231, 413766180933342362, 31185, 118114304, 31185, 31185, 31185, 670448123060170, 426088638015652413417, 1973678121921532286407950000, 133230930

Offset

1,1

Links

Table of n, a(n) for n=1..22.

Example

a(5)=42 because the 5th partition number is 7 and the next partition number divisible by 7 is 42.

Maple

with(combinat): a:=proc(n) local S, j: S:={}: for j from n+1 to 800 do if type(numbpart(j)/numbpart(n), integer)=true then S:=S union {numbpart(j)} else S:=S fi: od: min(seq(S[i], i=1..nops(S))): end: seq(a(n), n=1..25); # Emeric Deutsch, May 16 2006

Prog

(PARI) a(n)=if(n<0, 0, s=n+1; while(polcoeff(1/eta(x), s)%polcoeff(1/eta(x), n)>0, s++); polcoeff(1/eta(x), s))

Crossrefs

Cf. A000041.

Sequence in context: A336324 A335886 A141236 * A325485 A284063 A153826

Adjacent sequences: A079029 A079030 A079031 * A079033 A079034 A079035

Keyword

nonn

Author

Benoit Cloitre, Feb 01 2003

Extensions

More terms from Emeric Deutsch, May 16 2006

Status

approved