A111515 Number of partitions of T where T=(7*n + 1) if n is even and T=((7*n + 1)/2) if n is odd.
1, 5, 176, 56, 4565, 385, 63261, 1958, 614154, 8349, 4697205, 31185, 30167357, 105558, 169229875, 329931, 851376628, 966467, 3913864295, 2679689, 16670689208, 7089500, 66493182097, 18004327, 250438925115, 44108109, 896684817527, 104651419, 3068829878530
Offset: 0
Examples
If n=12 then P(7*n + 1) = 30167357.
Programs
-
Mathematica
Table[If[EvenQ[n],PartitionsP[7n+1],PartitionsP[(7n+1)/2]], {n,0,30}] (* Harvey P. Dale, Sep 30 2011 *)
Extensions
More terms from Harvey P. Dale, Sep 30 2011