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 A245585 #7 May 08 2017 06:32:55 %S A245585 19,23,33,35,47,59,63,71,75,77,95,103,107,118,124,129,131,143,147,155, %T A245585 161,167,179,187,195,201,203,206,209,215,217,223,236,239,243,247,248, %U A245585 251,271,275,280,283,285,287,294,299,311,316,323,327,329,332,334,339 %N A245585 Numbers that cannot be written as sum of two quarter-squares, cf. A002620. %C A245585 A245575(a(n)) = 0. %H A245585 Reinhard Zumkeller, <a href="/A245585/b245585.txt">Table of n, a(n) for n = 1..10000</a> %t A245585 qsQ[n_] := qsQ[n] = With[{s = Sqrt[n]}, Which[IntegerQ[s], True, n == Floor[s] (Floor[s] + 1), True, True, False]]; %t A245585 A245575[n_] := Count[Range[0, n], k_ /; qsQ[k] && qsQ[n - k]]; %t A245585 Flatten[Position[Array[A245575, 1000, 0], 0]] - 1 (* _Jean-François Alcover_, May 08 2017 *) %o A245585 (Haskell) %o A245585 a245585 n = a245585_list !! (n-1) %o A245585 a245585_list = filter ((== 0) . a245575) [0..] %Y A245585 Cf. A002620, A245575. %K A245585 nonn %O A245585 1,1 %A A245585 _Reinhard Zumkeller_, Aug 04 2014