|
| |
|
|
A102719
|
|
a(n)=a(n-1)+(sum of the last three digits of the sequence so far); a(0)=0; a(1)=1; a(2)=2 and a(n)<a(n+1).
|
|
0
| |
|
|
0, 1, 2, 5, 13, 22, 29, 42, 57, 71, 86, 101, 103, 107, 115, 122, 127, 137, 148, 161, 169, 185, 199, 218, 229, 242, 250, 257, 271, 281, 292, 305, 313, 320, 325, 335, 346, 359, 376, 392, 406, 416, 427, 440, 448, 464, 478, 497, 517, 530, 538, 554, 568, 587, 607
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
EXAMPLE
| 86+(1+8+6)=101
101+(1+0+1)=103
103+(1+0+3)=107
|
|
|
MAPLE
| a:= proc(n) option remember; local k, i; if n<2 then n elif n=2 then b(2):= [2, 1, 0]; 2 else k:= a(n-1) +add (i, i=b(n-1)); b(n):= [convert (k, base, 10)[], b(n-1)[]][1..3]; k fi end: seq (a(n), n=0..80); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de), Aug 13 2009]
|
|
|
CROSSREFS
| Cf. A102039.
Sequence in context: A072899 A099982 A046696 * A075470 A049779 A106009
Adjacent sequences: A102716 A102717 A102718 * A102720 A102721 A102722
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Eric Angelini (eric.angelini(AT)kntv.be), Feb 06 2005
|
|
|
EXTENSIONS
| Corrected and extended by Alois P. Heinz (heinz(AT)hs-heilbronn.de), Aug 13 2009
|
| |
|
|
