OFFSET
1,4
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
EXAMPLE
a(4) counts these partitions of 8: 62, 611, 521, 431.
MATHEMATICA
z = 30; g[n_] := IntegerPartitions[n]; m[p_, t_] := MemberQ[p, t];
Table[Count[g[2 n], p_ /; m[p, n - Length[p]]], {n, z}] (*A238607*)
Table[Count[g[2 n - 1], p_ /; m[p, n - Length[p]]], {n, z}] (*A238641*)
Table[Count[g[2 n + 1], p_ /; m[p, n - Length[p]]], {n, z}] (*A238742*)
p[n_, k_] := p[n, k] = If[k == 1 || n == k, 1, If[k > n, 0, p[n-1, k-1] + p[n-k, k]]]; q[n_, k_, e_] := If[n-e < k-1, 0, If[k == 1, If[n == e, 1, 0], p[n-e, k-1]]]; a[n_] := Sum[q[2*n, u, n-u], {u, n-1}]; Array[a, 100] (* Giovanni Resta, Mar 07 2014 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 04 2014
EXTENSIONS
More terms from Alois P. Heinz, Mar 04 2014
STATUS
approved