A294715 Numbers which can be expressed as an ordered sum of 3 squares in 10 or more different ways.
594, 626, 629, 689, 734, 761, 794, 801, 846, 854, 866, 881, 909, 914, 926, 929, 941, 950, 965, 986, 1001, 1025, 1026, 1034, 1041, 1046, 1049, 1089, 1097, 1106, 1109, 1121, 1125, 1130, 1154, 1161, 1169, 1181, 1190, 1193, 1205, 1206, 1209, 1214, 1226, 1229
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[1229], Length[PowersRepresentations[#, 3, 2]] >= 10 &]
Extensions
Updated Mathematica program to Version 11, and corrected errors in Name. by Robert Price, Nov 01 2019