A035700 Numbers k such that the number of partitions of k, A000041(k), is a multiple of 12.
21, 26, 30, 70, 75, 80, 106, 124, 125, 133, 142, 180, 191, 200, 231, 268, 278, 297, 298, 322, 336, 339, 340, 342, 350, 351, 353, 358, 365, 374, 412, 415, 449, 465, 494, 501, 531, 548, 550, 570, 579, 580, 602, 632, 645, 648, 649, 657, 663, 674, 679, 699
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[1000],Mod[PartitionsP[#],12]==0&] (* Harvey P. Dale, May 10 2019 *)
-
PARI
is(n)=numbpart(n)%12==0 \\ Charles R Greathouse IV, Apr 08 2015