A341165 Number of partitions of n into 7 distinct nonzero decimal palindromes.

1, 1, 2, 2, 4, 4, 6, 7, 8, 8, 10, 9, 10, 9, 9, 8, 8, 7, 7, 7, 8, 9, 10, 11, 13, 14, 16, 17, 18, 18, 19, 19, 20, 19, 19, 19, 19, 19, 19, 19, 19, 19, 20, 21, 21, 22, 24, 25, 28, 29, 32, 33, 36, 37, 40, 39, 41, 41, 42, 42, 42, 42, 42, 42, 43, 44, 43, 45, 47, 48

Offset

28,3

Links

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

Maple

p:= proc(n) option remember; local i, s; s:= ""||n;
      for i to iquo(length(s), 2) do if
        s[i]<>s[-i] then return false fi od; true
    end:
h:= proc(n) option remember; `if`(n<1, 0,
     `if`(p(n), n, h(n-1)))
    end:
b:= proc(n, i, t) option remember; `if`(n=0, 1, `if`(t*i<n,
      0, b(n, h(i-1), t)+b(n-i, h(min(n-i, i-1)), t-1)))
    end:
a:= n-> (k-> b(n, h(n), k)-b(n, h(n), k-1))(7):
seq(a(n), n=28..97);  # Alois P. Heinz, Feb 06 2021

Crossrefs

Cf. A002113, A136522, A319472, A341155, A341156, A341157, A341158, A341159, A341166, A341167, A341168.

Sequence in context: A320008 A127370 A352792 * A215259 A331167 A348588

Adjacent sequences: A341162 A341163 A341164 * A341166 A341167 A341168

Keyword

nonn,base

Author

Ilya Gutkovskiy, Feb 06 2021

Status

approved