A060745 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

MATHEMATICA

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

CROSSREFS

KEYWORD

nonn,more

AUTHOR

EXTENSIONS

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

STATUS

approved