OFFSET
0,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
MATHEMATICA
a[n_] := a[n] = If[n < 3, a[n] = n, 2a[n - 1] - a[n - Floor[1/2 + Sqrt[2n]] ]]; Table[ a[n], {n, 0, 35}] (* Robert G. Wilson v *)
PROG
(PARI) {m=35; v=vector(m+1); for(n=0, m, if(n<=2, a=n, k=n-floor(1/2+sqrt(2*n)); a=2*v[n]-v[k+1]); v[n+1]=a; print1(a, ", "))} \\ Klaus Brockhaus, Aug 20 2004
(Haskell)
a096796 n = a096796_list !! n
a096796_list = 0 : 1 : zipWith (-)
(map (* 2) $ tail a096796_list) (map a096796 $ tail a083920_list)
-- Reinhard Zumkeller, Feb 12 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Aug 17 2004
EXTENSIONS
More terms from Klaus Brockhaus and Robert G. Wilson v, Aug 20 2004
STATUS
approved