STATUS
reviewed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A025425
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
STATUS
proposed
reviewed
STATUS
editing
proposed
MATHEMATICA
a[n_] := PowersRepresentations[n, 10, 2] // Length; Array[a, 120, 0] (* Jean-François Alcover, Feb 19 2016 *)
STATUS
approved
editing
STATUS
editing
approved
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
LINKS
Alois P. Heinz, <a href="/A025425/b025425.txt">Table of n, a(n) for n = 0..10000</a>
STATUS
approved
editing
STATUS
editing
approved
CROSSREFS
Cf. A001156.
STATUS
approved
editing
AUTHOR
_David W. Wilson (davidwwilson(AT)comcast.net)_