login
Number of partitions of n into 6 distinct nonzero decimal palindromes.
10

%I #8 Jul 27 2021 17:23:28

%S 1,1,2,3,4,6,8,9,11,13,14,15,16,16,15,15,14,13,12,11,11,11,12,12,14,

%T 15,17,18,20,20,22,22,23,23,23,23,23,23,23,23,22,23,23,23,24,24,25,26,

%U 28,29,31,32,35,36,38,39,40,41,41,42,42,42,41,43,42,42,43,43,44,45,47

%N Number of partitions of n into 6 distinct nonzero decimal palindromes.

%H Alois P. Heinz, <a href="/A341159/b341159.txt">Table of n, a(n) for n = 21..20000</a>

%t Table[Count[IntegerPartitions[n,{6}],_?(Length[Union[#]]==Length[#]&&AllTrue[ #,PalindromeQ]&)],{n,21,100}] (* _Harvey P. Dale_, Jul 27 2021 *)

%Y Cf. A002113, A136522, A319471, A341155, A341156, A341157, A341158.

%K nonn,base

%O 21,3

%A _Ilya Gutkovskiy_, Feb 06 2021