%I #20 Aug 09 2021 20:07:54
%S 1,10,16,65,160,180,366,406,896,1436,3904,5464,6312,7168,12558,17957,
%T 36960,48097,48256,61952,88646,94400,107340,112240,114863,127540,
%U 171856,270336,383360,392736,459012,623639,960484,1222656,1312768,1463990,1480704,2244736,2380968,3183563,4161888,4787280,5107455,5606400,6826556,7878400,9188414,9533238,10219520,10356472,12981760,15162808,22062080,25240360,28313472,32215040,41284864,72160576,79563520,91164167
%N Numbers k that divide the number of partitions of k into distinct parts (A000009).
%C No other terms below 10^8. - _Max Alekseyev_, Jul 10 2015
%t Do[ If[ Mod[ PartitionsQ[n], n] == 0, Print[n]], {n, 1, 48000}]
%Y Cf. A000009, A051177, A162468, A259943.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 02 2000
%E Extended by _Max Alekseyev_, Jul 04 2009
%E a(49)-a(60) from _Max Alekseyev_, Jul 10 2015
|