cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

User: Integer}}, Block[{c = 0, k, j, i = Floor[Sqrt[n]]}, While[i > -1, j = Floor[Sqrt[n - i^2]]; While[j > -1, k = Floor[Sqrt[n - i^2 - j^2]]; While[k > -1, c += Boole[ Mod[ Sqrt[ n - i^2 - j^2 - k^2], 1] == 0]; k--]; j--]; i--]; c]]; Array[a, 70, 0] - (* _Robert G. Wilson v

Integer}}, Block[{c = 0, k, j, i = Floor[Sqrt[n]]}, While[i > -1, j = Floor[Sqrt[n - i^2]]; While[j > -1, k = Floor[Sqrt[n - i^2 - j^2]]; While[k > -1, c += Boole[ Mod[ Sqrt[ n - i^2 - j^2 - k^2], 1] == 0]; k--]; j--]; i--]; c]]; Array[a, 70, 0] - (* _Robert G. Wilson v's wiki page.

Integer}}, Block[{c = 0, k, j, i = Floor[Sqrt[n]]}, While[i > -1, j = Floor[Sqrt[n - i^2]]; While[j > -1, k = Floor[Sqrt[n - i^2 - j^2]]; While[k > -1, c += Boole[ Mod[ Sqrt[ n - i^2 - j^2 - k^2], 1] == 0]; k--]; j--]; i--]; c]]; Array[a, 70, 0] - (* _Robert G. Wilson v has authored 0 sequences.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.