1,2
Do[ If[ Mod[ PartitionsP[n] - PartitionsQ[n], n] == 0, Print[n]], {n, 1, 14577}]
Cf. A000041 and A000009.
Adjacent sequences: A056870 A056871 A056872 this_sequence A056874 A056875 A056876
Sequence in context: A053701 A029615 A051791 this_sequence A107788 A038289 A079607
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 02 2000
Search completed in 0.002 seconds