OFFSET
0,26
LINKS
FORMULA
a(n) = Sum_{k=0..3} A341040(n,k). - Alois P. Heinz, Sep 08 2021
MATHEMATICA
a[n_] := IntegerPartitions[n, 3, Select[Range[n], IntegerQ@Sqrt[#]&]] // Select[#, Union[#] == Sort[#]&]& // Length;
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Sep 13 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 08 2021
STATUS
approved