|
Search: id:A096824
|
|
|
| A096824 |
|
a(n) = n for n <= 2; for n > 2, a(n) = 2a(n-1) - a(n - floor( 1/2 + sqrt(2(n-1)) )). |
|
+0
3
|
|
| 0, 1, 2, 3, 4, 6, 9, 14, 24, 42, 75, 136, 258, 492, 942, 1809, 3482, 6828, 13398, 26304, 51666, 101523, 199564, 395646, 784464, 1555530, 3084756, 6117846, 12134169, 24068774, 47937984, 95480322, 190176180, 378796830, 754508904, 1502899962
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
MATHEMATICA
|
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)
|
|
PROGRAM
|
(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
|
|
CROSSREFS
|
Cf. A005318, A096796.
Sequence in context: A005579 A000381 A001115 this_sequence A089797 A081237 A022159
Adjacent sequences: A096821 A096822 A096823 this_sequence A096825 A096826 A096827
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com), Aug 17 2004
|
|
EXTENSIONS
|
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.002 seconds
|
