A393252 Number of partitions of A083207(n) into distinct Zumkeller numbers.

1, 1, 1, 1, 1, 2, 2, 3, 4, 5, 3, 7, 8, 6, 11, 8, 14, 12, 19, 22, 26, 19, 32, 26, 38, 46, 55, 66, 79, 64, 112, 131, 123, 181, 214, 183, 252, 294, 341, 399, 462, 452, 539, 625, 615, 721, 653, 836, 964, 1112, 1276, 1463, 1683, 1567, 1929, 2209, 2066, 2523, 2549, 2876

Offset

1,6

Links

Felix Huber, Table of n, a(n) for n = 1..1000

Example

The a(12) = 7 partitions of A083207(12) = 60 are [60], [6, 54], [12, 48], [20, 40], [6, 12, 42], [6, 24, 30] and [12, 20, 28].

Maple

A393252List := proc(N) # Zumkeller numbers <= N
    local m, a, n, c;
    m := A083207_list(N);
    a := [];
    for n in m do
        c:= proc(n);
            local b, l;
            l := m[1 .. ListTools:-Search(n, m)];
            b:= proc(i, j) option remember;
                `if`(i = 0, 1, `if`(j < 1, 0, b(i, j - 1) + `if`(l[j] > i, 0, b(i - l[j], j - 1))))
            end proc:
            b(n, nops(l))
        end proc:
        a := [op(a), c(n)]
    end do;
    a
end proc:
A393252List(282);

Crossrefs

Cf. A000009, A083207, A393206.

Sequence in context: A120887 A155860 A318285 * A318560 A030385 A253553

Adjacent sequences: A393249 A393250 A393251 * A393253 A393254 A393255

Keyword

nonn

Author

Felix Huber, Feb 13 2026

Status

approved