Mathematica: How can I get all squares on this sphere so that its coordinates are integer numbers?

How can I get all squares on this sphere so that its coordinates are integer numbers? Hey guys! Hopefully you found a solution that helped you! The Content is licensed under (https://meta.stackexchange.com/help/licensing) CC BY-SA. Attention! This video does always use the same license as the source! Thanks to all the great people for their contributions! (mathematica.stackexchange.com/users/87428/laurenso)Laurenso (mathematica.stackexchange.com/users/72111/cvgmt)cvgmt (mathematica.stackexchange.com/users/72111/cvgmt)cvgmt (mathematica.stackexchange.com/users/51/daniel-lichtblau)Daniel Lichtblau A special thanks goes out to the awesome (mathematica.stackexchange.com/questions/288956/how-can-i-get-all-squares-on-this-sphere-so-that-its-coordinates-are-integer-num)Stackexchange community If anything is off, please write me at sophia DO.T wagner A.T ois42.de I wish you all a chilled day! Stay safe :) diophantine-equations