A068909 Number of partitions of n modulo 7.
1, 1, 2, 3, 5, 0, 4, 1, 1, 2, 0, 0, 0, 3, 2, 1, 0, 3, 0, 0, 4, 1, 1, 2, 0, 5, 0, 0, 1, 1, 4, 3, 5, 0, 4, 1, 1, 0, 3, 0, 0, 0, 2, 2, 2, 3, 5, 0, 0, 2, 1, 4, 0, 0, 0, 0, 3, 2, 2, 3, 5, 0, 4, 2, 2, 2, 3, 5, 0, 4, 3, 2, 4, 6, 5, 0, 0, 2, 2, 4, 3, 5, 0, 0, 3, 3, 6, 6, 3, 0, 1, 3, 3, 4, 3, 5, 0, 0, 4, 3, 4, 6, 5, 0, 1
Offset: 0
Keywords
Links
Programs
-
Mathematica
Table[Mod[PartitionsP[n],7],{n,0,110}] (* Harvey P. Dale, Feb 17 2018 *)
-
PARI
a(n) = numbpart(n) % 7; \\ Michel Marcus, Jul 14 2022
Comments