A060744 Numbers n such that n | p(n)*q(n), where p() is the unrestricted partition function (A000041) and q is the distinct partition function (A000009).

1, 2, 3, 10, 16, 51, 65, 124, 138, 158, 160, 180, 342, 366, 406, 522, 524, 544, 580, 648, 693, 850, 896, 900, 1248, 1436, 1488, 1662, 1896, 2356, 2816, 3360, 3853, 3904, 4416, 4434, 4484, 5273, 5464, 5648, 5649, 6312, 6492, 6840, 7168, 7616, 8085, 8512

Offset

1,2

Links

Table of n, a(n) for n=1..48.

Mathematica

Do[ p = PartitionsP[ n ]; q = PartitionsQ[ n ]; If[ Mod[ p*q, n ] == 0, Print[ n ] ], {n, 1, 11050} ]

Crossrefs

Sequence in context: A106672 A069156 A357271 * A213391 A328343 A309350

Adjacent sequences: A060741 A060742 A060743 * A060745 A060746 A060747

Keyword

nonn

Author

Robert G. Wilson v, Apr 23 2001

Status

approved