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.
%I A174806 #24 Dec 17 2022 06:43:19 %S A174806 0,0,0,1,0,0,1,2,0,0,0,1,2,0,1,2,0,0,1,2,0,1,2,3,4,0,0,1,2,0,1,2,3,4, %T A174806 0,1,0,0,1,2,0,1,2,3,4,0,1,2,3,0,0,1,2,0,1,2,3,4,0,1,2,3,4,5,0,0,1,2, %U A174806 0,1,2,3,4,0,1,2,3,4,5,6,0,0,0,1,2,0,1,2,3,4,0,1,2,3,4,5,6,0,1,2,0,0,1,2,0 %N A174806 a(n) = n-floor(sqrt(n))^2-floor(sqrt(n-floor(sqrt(n))^2))^2; difference between n and sum of two largest distinct squares <= n. %C A174806 If a(n)=0 then n is a sum of two squares A001481, but not conversely. For the sum of two squares n = 18, 32, 41, ... we have a(n) > 0. - _Thomas Ordowski_, Jul 11 2014 %H A174806 Michel Marcus, <a href="/A174806/b174806.txt">Table of n, a(n) for n = 0..10000</a> %F A174806 a(n) = 0 iff A053610(n) < 3 and 0 < a(n) = m^2 iff A053610(n) = 3. - _Thomas Ordowski_, Jul 12 2014 %e A174806 24=4^2+8;8-2^2=4, 115=10^2+15;15-3^2=6,.. %t A174806 a[n_]:=n-Floor[Sqrt[n]]^2-Floor[Sqrt[n-Floor[Sqrt[n]]^2]]^2; %t A174806 Table[a[n], {n,0,6!}] %o A174806 (PARI) a(n) = my(x=sqrtint(n)^2); n - x - sqrtint((n-x))^2; \\ _Michel Marcus_, Dec 17 2022 %Y A174806 Cf. A001481, A053186, A053610. %K A174806 nonn %O A174806 0,8 %A A174806 _Vladimir Joseph Stephan Orlovsky_, Mar 29 2010