OFFSET
1,2
COMMENTS
Palindromic partitions are defined at A025065.
EXAMPLE
a(10) counts these 7 partitions (written as palindromes): [10], [5,5], [1,4,4,1], [2,3,3,2], [1,3,2,3,1], [2,2,2,2,2], [1,1,1,1,1,1,1,1,1,1].
MATHEMATICA
z = 40; p[n_] := p[n] = Select[IntegerPartitions[n], (Count[OddQ[Transpose[Tally[#]][[2]]], True] <= 1) && (Count[#, Min[#]] == Count[#, Max[#]]) &]; Table[p[n], {n, 1, 12}]
Table[Length[p[n]], {n, 1, z}]
CROSSREFS
KEYWORD
nonn,easy,changed
AUTHOR
Clark Kimberling, Mar 05 2014
STATUS
approved