Search: id:A096824
Results 1-1 of 1 results found.

%I A096824
%S A096824 0,1,2,3,4,6,9,14,24,42,75,136,258,492,942,1809,3482,6828,13398,26304,
%T A096824 51666,101523,199564,395646,784464,1555530,3084756,6117846,12134169,
%U A096824 24068774,47937984,95480322,190176180,378796830,754508904,1502899962
%N A096824 a(n) = n for n <= 2; for n > 2, a(n) = 2a(n-1) - a(n - floor( 1/2 + sqrt(2(n-1)) 
               )).
%t A096824 a[n_] := a[n] = If[n < 3, a[n] = n, 2a[n - 1] - a[n - Floor[1/2 + Sqrt[2(n 
               - 1)]]]]; Table[ a[n], {n, 0, 35}] (from Robert G. Wilson v Aug 20 
               2004)
%o A096824 (PARI) {m=36;v=vector(m+1);for(n=0,m,if(n<=2,a=n,k=n-floor(1/2+sqrt(2*(n-1)));
               a=2*v[n]-v[k+1]);v[n+1]=a;print1(a,","))} - Klaus Brockhaus, Aug 
               20 2004
%Y A096824 Cf. A005318, A096796.
%Y A096824 Sequence in context: A005579 A000381 A001115 this_sequence A089797 A081237 
               A022159
%Y A096824 Adjacent sequences: A096821 A096822 A096823 this_sequence A096825 A096826 
               A096827
%K A096824 nonn,easy
%O A096824 0,3
%A A096824 N. J. A. Sloane (njas(AT)research.att.com), Aug 17 2004
%E A096824 More terms from Klaus Brockhaus (klaus-brockhaus(AT)t-online.de) and 
               Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 20 2004

Search completed in 0.001 seconds