A114092 Number of partitions of n into parts that are distinct mod 4.

1, 1, 1, 2, 2, 3, 3, 5, 4, 6, 7, 9, 7, 10, 14, 14, 11, 15, 25, 20, 16, 21, 41, 27, 22, 28, 63, 35, 29, 36, 92, 44, 37, 45, 129, 54, 46, 55, 175, 65, 56, 66, 231, 77, 67, 78, 298, 90, 79, 91, 377, 104, 92, 105, 469, 119, 106, 120, 575, 135, 121, 136, 696, 152

Offset: 0

Author

Giovanni Resta, Feb 06 2006

Keywords

• nonn

Examples

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

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..10000 (terms n = 1..2000 from Fausto A. C. Cariboni)

Programs

Mathematica

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

Extensions

a(0)=1 prepended by Alois P. Heinz, Jan 23 2021