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