|
| |
|
|
A137898
|
|
Limiting sequence when we start with positive integers (A000027) and at step n >= 1 add to the term at position n + a(n) the value of the term at position n+a(n)+1.
|
|
2
| |
|
|
1, 5, 3, 4, 5, 21, 15, 17, 9, 21, 11, 12, 13, 14, 15, 16, 17, 37, 19, 20, 21, 68, 23, 75, 51, 81, 55, 57, 29, 93, 63, 65, 33, 69, 35, 36, 37, 77, 39, 81, 41, 85, 43, 44, 45, 93, 47, 48
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| Limiting sequence when we start with positive integers (A000027) and at step n >= 1 add to the term at position n + a(n) the value of the term at position n+a(n)+1.
|
|
|
MAPLE
| P:=proc(i) local a, n, v; v:=array(1..i); for n from 1 by 1 to i do v[n]:=n; od; for n from 1 by 1 to 200 do v[v[n]+n]:=v[v[n]+n]+v[v[n]+n+1]; od; for n from 1 by 1 to 200 do print(v[n]); od; end: P(1000); [From Paolo P. Lava (paoloplava(AT)gmail.com), Mar 10 2009]
|
|
|
CROSSREFS
| Cf. A000027, A136119, A137319, A137417, A137418, A136259, A136272.
Sequence in context: A114236 A178481 A171545 * A020854 A008962 A198678
Adjacent sequences: A137895 A137896 A137897 * A137899 A137900 A137901
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Ctibor O. Zizka (ctibor.zizka(AT)seznam.cz), Apr 30 2008
|
|
|
EXTENSIONS
| Entries corrected and extended by Paolo P. Lava (paoloplava(AT)gmail.com), Mar 10 2009
|
| |
|
|
