A114093 Number of partitions of n into parts that are distinct mod 5.
1, 1, 2, 2, 3, 4, 4, 6, 6, 8, 10, 10, 13, 13, 18, 20, 20, 24, 24, 36, 35, 35, 40, 40, 66, 56, 56, 62, 62, 113, 84, 84, 91, 91, 183, 120, 120, 128, 128, 283, 165, 165, 174, 174, 421, 220, 220, 230, 230, 606
Offset: 1
Keywords
Examples
a(5)=3 because there are 3 such partition of 5: {5}, {2,3}, {1,4}.
Links
- Fausto A. C. Cariboni, Table of n, a(n) for n = 1..2000
Programs
-
Mathematica
<< DiscreteMath`Combinatorica`; np[n_]:= Length@Select[Mod[ #,5]& /@ Partitions[n],(Length@# != Length@Union@#)&]; lst = Array[np,50]