|
Search: id:A066949
|
|
|
| A066949 |
|
Take the sum of the previous two terms, subtract n if this sum is greater than n. |
|
+0
1
|
|
| 0, 1, 1, 2, 3, 5, 2, 7, 1, 8, 9, 6, 3, 9, 12, 6, 2, 8, 10, 18, 8, 5, 13, 18, 7, 25, 6, 4, 10, 14, 24, 7, 31, 5, 2, 7, 9, 16, 25, 2, 27, 29, 14, 43, 13, 11, 24, 35, 11, 46, 7, 2, 9, 11, 20, 31, 51, 25, 18, 43, 1, 44, 45, 26, 7, 33, 40, 6, 46, 52, 28, 9, 37, 46, 9, 55, 64, 42, 28, 70, 18
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=0..10000
|
|
FORMULA
|
a(n) = a(n-1)+a(n-2)-n if a(n-1)+a(n-2)>n, a(n) = a(n-1)+a(n-2) otherwise; a(0) = 0, a(1) = 1.
|
|
MATHEMATICA
|
a[0] = 0; a[1] = 1; a[n_] := a[n] = Block[ {b = a[n - 1] + a[n - 2]}, If[b > n, Return[b - n], Return[b]]]; Table[a[n], {n, 0, 80} ]
|
|
CROSSREFS
|
Cf. A000045.
Sequence in context: A126833 A053723 A138512 this_sequence A073481 A122556 A084346
Adjacent sequences: A066946 A066947 A066948 this_sequence A066950 A066951 A066952
|
|
KEYWORD
|
easy,nonn,nice
|
|
AUTHOR
|
Floor van Lamoen (fvlamoen(AT)hotmail.com), Jan 25 2002
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 31 2002
|
|
|
Search completed in 0.002 seconds
|
