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,3

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A218980 A084829 A018649 * A214977 A135676 A102701

Adjacent sequences: A341156 A341157 A341158 * A341160 A341161 A341162

Keyword

nonn,base

Author

Ilya Gutkovskiy, Feb 06 2021

Status

approved