A357354 Number of partitions of n into distinct positive squares such that the number of parts is a square.

1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 3, 1, 0, 2, 0, 0, 1, 1, 1

Offset

0,79

Links

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

Example

a(30) = 1 because we have [16,9,4,1].
a(78) = 3: [36,25,16,1], [49,16,9,4], [64,9,4,1].

Maple

b:= proc(n, i, t) option remember; `if`(n=0,
     `if`(issqr(t), 1, 0), `if`(n>i*(i+1)*(2*i+1)/6, 0,
     `if`(i^2>n, 0, b(n-i^2, i-1, t+1))+b(n, i-1, t)))
    end:
a:= n-> b(n, isqrt(n), 0):
seq(a(n), n=0..100);  # Alois P. Heinz, Sep 25 2022

Crossrefs

Cf. A000290, A033461, A045450, A089333, A357352.

Sequence in context: A103879 A322706 A051722 * A166408 A327077 A284826

Adjacent sequences: A357351 A357352 A357353 * A357355 A357356 A357357

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 25 2022

Status

approved