A060745 - OEIS

%I #10 Dec 25 2022 19:10:54

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

%T 773599

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

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

%K nonn,more

%O 1,2

%A _Robert G. Wilson v_, Apr 23 2001

%E a(14)-a(17) from _Sean A. Irvine_, Dec 25 2022