%I #11 Dec 18 2017 03:07:01
%S 1,3,56,22,792,101,6842,385,44583,1255,239943,3718,1121505,10143,
%T 4697205,26015,18004327,63261,64112359,147273,214481126,329931,
%U 679903203,715220,2056148051,1505499,5964539504,3087735,16670689208
%N Number of partitions of P where P=(5*n + 1) if n is even and P=((5*n + 1)/2) if n is odd.
%e If n=12 then P(5*n + 1) = 1121505.
%t Table[ PartitionsP@If[EvenQ[n], 5n + 1, (5n + 1)/2], {n, 0, 30}] (* _Robert G. Wilson v_, Nov 15 2005 *)
%o (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
%Y Cf. A111329.
%K nonn
%O 0,2
%A _Parthasarathy Nambi_, Nov 14 2005
%E More terms from _Robert G. Wilson v_ and _Stefan Steinerberger_, Nov 15 2005