OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10946
B. Cloitre, Graph of A085005(n) for n=1 up to 3874 [archive.org link]
FORMULA
a(n)=sum(k=1, n, A085002(k)).
a(A283766(n)) = n for all n >= 1. - Antti Karttunen, Mar 17 2017
MATHEMATICA
Accumulate[Table[Floor[GoldenRatio*n]-2*Floor[GoldenRatio*n/2], {n, 110}]] (* Harvey P. Dale, Dec 11 2012 *)
PROG
(PARI) sum(k=1, n, (k+sqrtint(5*k^2))%4>1) \\ Charles R Greathouse IV, Feb 07 2013
(Scheme, with memoization-macro definec)
;; Antti Karttunen, Mar 17 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jun 17 2003
STATUS
approved