OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[900], Count[IntegerPartitions[#, {3}], _?(AllTrue[Sqrt[#], IntegerQ]&)]==5&] (* Harvey P. Dale, Nov 14 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved
