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.

A245585 Numbers that cannot be written as sum of two quarter-squares, cf. A002620.

This page as a plain text file.
%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