Busai Ágota
(R7SRBI)

Milyen módon lehet előállítani a (q^2) egész számot pontosan k egész szám négyzeteinek összegeként?

part[q_,k_]:=IntegerPartitions[q^2,{k},Table[i^2,{i,1,q}]]

part[5,2]

Lehet, hogy valóban értelmesebb a feladat, ha a második egész helyett pozitív egészet írunk.

PowersRepresentations[(5^2),2,2]