OFFSET
1,2
MATHEMATICA
Do[ d = GCD[ PartitionsP[ n ], PartitionsQ[ n ]]; If[ a[[ d ]] == 0, a[[ d ]] = n ], {n, 1, 10400} ]; Table[ a[[ n ]], {n, 1, 60} ]
With[{p=Table[GCD[PartitionsP[n], PartitionsQ[n]], {n, 10000}]}, Table[ Position[ p, n, 1, 1], {n, 60}]]//Flatten (* Harvey P. Dale, Nov 19 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 23 2001
STATUS
approved