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 A096796 #14 Mar 20 2015 02:58:39
%S A096796 0,1,2,3,5,8,13,23,41,74,135,257,491,941,1808,3481,6827,13397,26303,
%T A096796 51665,101522,199563,395645,784463,1555529,3084755,6117845,12134168,
%U A096796 24068773,47937983,95480321,190176179,378796829,754508903,1502899961
%N A096796 a(n) = n for n <= 2; for n > 2, a(n) = 2a(n-1) - a(n - floor( 1/2 + sqrt(2n) )).
%H A096796 Reinhard Zumkeller, <a href="/A096796/b096796.txt">Table of n, a(n) for n = 0..1000</a>
%t A096796 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_ *)
%o A096796 (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
%o A096796 (Haskell)
%o A096796 a096796 n = a096796_list !! n
%o A096796 a096796_list = 0 : 1 : zipWith (-)
%o A096796 (map (* 2) $ tail a096796_list) (map a096796 $ tail a083920_list)
%o A096796 -- _Reinhard Zumkeller_, Feb 12 2012
%Y A096796 Cf. A005318, A096824.
%Y A096796 Cf. A083920, A003056.
%K A096796 nonn,easy
%O A096796 0,3
%A A096796 _N. J. A. Sloane_, Aug 17 2004
%E A096796 More terms from _Klaus Brockhaus_ and _Robert G. Wilson v_, Aug 20 2004