OFFSET
0,2
EXAMPLE
If n=12 then P(5*n + 1) = 1121505.
MATHEMATICA
Table[ PartitionsP@If[EvenQ[n], 5n + 1, (5n + 1)/2], {n, 0, 30}] (* Robert G. Wilson v, Nov 15 2005 *)
PROG
(MuPAD) for n from 1 to 20 do if n/2 = trunc(n/2) then a := 5*n+1; end_if; if n/2 <> trunc(n/2) then a := (5*n+1)/2; end_if; print(combinat::partitions::count(a)); end_for; // Stefan Steinerberger, Nov 15 2005
CROSSREFS
KEYWORD
nonn
AUTHOR
Parthasarathy Nambi, Nov 14 2005
EXTENSIONS
More terms from Robert G. Wilson v and Stefan Steinerberger, Nov 15 2005
STATUS
approved