A341159 Number of partitions of n into 6 distinct nonzero decimal palindromes.

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, 15, 17, 18, 20, 20, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 22, 23, 23, 23, 24, 24, 25, 26, 28, 29, 31, 32, 35, 36, 38, 39, 40, 41, 41, 42, 42, 42, 41, 43, 42, 42, 43, 43, 44, 45, 47

Offset: 21

Author

Ilya Gutkovskiy, Feb 06 2021

Keywords

• nonn
• base

Links

• Alois P. Heinz, Table of n, a(n) for n = 21..20000

Crossrefs

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

Programs

Mathematica

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