|
%I #12 Oct 12 2023 08:56:40
%S 1,8,11,34,310,1688,2307,2708,13988,21315,46739,426378,771476,
%T 11762557,18628390,19841526,24396168,85110245
%N Numbers k such that k | p(k) - q(k) where p(k) = partition numbers (A000041) and q(k) = partition numbers into distinct parts (A000009).
%C No other terms below 10^8. - _Max Alekseyev_, Oct 12 2023
%t Do[ If[ Mod[ PartitionsP[n] - PartitionsQ[n], n] == 0, Print[n]], {n, 1, 14577}]
%Y Cf. A000009, A000041, A051177, A056848, A056872, A121919. A128836, A162468, A259943.
%K nonn,more
%O 1,2
%A _Robert G. Wilson v_, Sep 02 2000
%E a(10)-a(13) from _Sean A. Irvine_, May 12 2022
%E a(14)-a(18) from _Max Alekseyev_, Oct 12 2023
|
