A114094 Number of partitions of n into parts that are distinct mod 6.

1, 1, 2, 2, 3, 4, 5, 5, 8, 8, 10, 13, 14, 15, 21, 22, 24, 32, 31, 35, 46, 49, 49, 66, 60, 70, 91, 95, 90, 121, 106, 126, 168, 167, 153, 204, 175, 210, 294, 273, 245, 323, 274, 330, 492, 422, 374, 487, 411, 495

Offset: 1

Author

Giovanni Resta, Feb 06 2006

Keywords

• nonn

Examples

			a(7)=5 because there are 5 such partitions of 7: {7}, {1,6}, {2,5}, {3,4}, {4,2,1}.
		

Links

• Fausto A. C. Cariboni, Table of n, a(n) for n = 1..1000

Programs

Mathematica

<< DiscreteMath`Combinatorica`; np[n_]:= Length@Select[Mod[ #,6]& /@ Partitions[n],(Length@# != Length@Union@#)&]; lst = Array[np,50]