|
Search: id:A102719
|
|
|
| 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
1
|
|
| 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; listen)
|
|
|
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 this_sequence A075470 A049779 A106009
Adjacent sequences: A102716 A102717 A102718 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
