1,2
Do[ If[ Mod[ PartitionsP[ n ] + PartitionsQ[ n ], n ] == 0, Print[ n ] ], {n, 1, 8150} ]
Cf. A000041 and A000009.
Sequence in context: A099799 A093534 A070388 this_sequence A029490 A098947 A147176
Adjacent sequences: A056869 A056870 A056871 this_sequence A056873 A056874 A056875
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 02 2000
Search completed in 0.002 seconds