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 A085003 #18 Mar 17 2017 22:06:23
%S A085003 1,2,2,2,2,3,4,4,4,4,5,6,7,7,7,8,9,10,10,10,11,12,13,13,13,13,14,15,
%T A085003 15,15,15,16,17,18,18,18,19,20,21,21,21,22,23,24,24,24,24,25,26,26,26,
%U A085003 26,27,28,28,28,28,29,30,31,31,31,32,33,34,34,34,34,35,36,36,36,36,37,38
%N A085003 Partial sums of A085002.
%H A085003 Antti Karttunen, <a href="/A085003/b085003.txt">Table of n, a(n) for n = 1..10946</a>
%H A085003 B. Cloitre, <a href="http://web.archive.org/web/20060326144944/http://membres.lycos.fr/bgourevitch/temporaires/benoit/phifractal.jpg">Graph of A085005(n) for n=1 up to 3874</a> [archive.org link]
%F A085003 a(n)=sum(k=1, n, A085002(k)).
%F A085003 a(A283766(n)) = n for all n >= 1. - _Antti Karttunen_, Mar 17 2017
%t A085003 Accumulate[Table[Floor[GoldenRatio*n]-2*Floor[GoldenRatio*n/2],{n,110}]] (* _Harvey P. Dale_, Dec 11 2012 *)
%o A085003 (PARI) sum(k=1,n,(k+sqrtint(5*k^2))%4>1) \\ _Charles R Greathouse IV_, Feb 07 2013
%o A085003 (Scheme, with memoization-macro definec)
%o A085003 (definec (A085003 n) (if (= 1 n) n (+ (A085002 n) (A085003 (- n 1)))))
%o A085003 ;; _Antti Karttunen_, Mar 17 2017
%Y A085003 Partial sums of A085002. A left inverse of A283766.
%Y A085003 Cf. A083035, A083036, A083037, A083038, A085004, A085005.
%K A085003 nonn
%O A085003 1,2
%A A085003 _Benoit Cloitre_, Jun 17 2003