OFFSET
1,2
COMMENTS
No other terms below 10^8. - Max Alekseyev, Oct 12 2023
MATHEMATICA
Do[ If[ Mod[ PartitionsP[n] - PartitionsQ[n], n] == 0, Print[n]], {n, 1, 14577}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Sep 02 2000
EXTENSIONS
a(10)-a(13) from Sean A. Irvine, May 12 2022
a(14)-a(18) from Max Alekseyev, Oct 12 2023
STATUS
approved