A025425 Number of partitions of n into 10 squares.

1, 1, 1, 1, 2, 2, 2, 2, 3, 4, 4, 3, 4, 5, 4, 4, 6, 6, 7, 6, 7, 8, 8, 7, 9, 11, 10, 10, 11, 12, 12, 12, 13, 15, 16, 13, 17, 18, 17, 17, 20, 20, 21, 20, 20, 25, 23, 22, 25, 27, 27, 26, 29, 30, 33, 31, 32, 36, 37, 33, 35, 40, 38, 40, 41, 42, 46, 43, 44, 49, 50, 47, 54, 54, 54, 54, 55, 58, 60, 61

Offset: 0

Author

David W. Wilson

Keywords

• nonn

Links

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

Crossrefs

Cf. A001156.

Programs

Maple

b:= proc(n, i, t) option remember; `if`(n=0, 1,
      `if`(i<1 or t<1, 0, b(n, i-1, t)+
      `if`(i^2>n, 0, b(n-i^2, i, t-1))))
    end:
a:= n-> b(n, isqrt(n), 10):
seq(a(n), n=0..120);  # Alois P. Heinz, May 30 2014

Mathematica

a[n_] := PowersRepresentations[n, 10, 2] // Length; Array[a, 120, 0] (* Jean-François Alcover, Feb 19 2016 *)