A060745 When gcd( p(n), q(n) ) increases, where p() is the unrestricted partition function (A000041) and q is the distinct partition function (A000009).

1, 7, 33, 40, 109, 124, 314, 659, 815, 964, 2499, 4351, 5780, 49518, 64816, 148408, 773599

Offset

1,2

Links

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

Mathematica

a = 0; Do[ d = GCD[ PartitionsP[ n ], PartitionsQ[ n ]]; If[ d > a, a = d; Print[ n ]], {n, 1, 11050} ]

Crossrefs

Sequence in context: A324412 A175189 A153286 * A275163 A051895 A168574

Adjacent sequences: A060742 A060743 A060744 * A060746 A060747 A060748

Keyword

nonn,more

Author

Robert G. Wilson v, Apr 23 2001

Extensions

a(14)-a(17) from Sean A. Irvine, Dec 25 2022

Status

approved