A065461 Number of inequivalent (ordered) solutions to n^2 = sum of 7 squares of integers >= 0.
1, 1, 2, 3, 4, 7, 10, 13, 16, 27, 36, 43, 58, 72, 99, 130, 146, 178, 254, 265, 342, 417, 507, 540, 726, 745, 975, 1092, 1289, 1338, 1845, 1751, 2246, 2447, 2948, 2852, 3932, 3638, 4728, 4868, 5778, 5618, 7659, 6887, 8891, 8887, 10825, 10109, 13712
Offset: 0
Keywords
Examples
a(4)=4 because 16 produces {0,0,0,0,0,0,4}, {0,0,0,2,2,2,2}, {0,0,1,1,1,2,3}, {1,1,1,1,2,2,2}.
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..500
Programs
-
Mathematica
Table[Length[PowersRepresentations[n^2,7,2]],{n,0,50}] (* Harvey P. Dale, Sep 08 2020 *)
Extensions
a(0)=1 prepended by Alois P. Heinz, Feb 17 2015
Previous Mathematica program replaced by Harvey P. Dale, Sep 08 2020