|
|
A140132
|
|
a(n)=Sum_digits{a(n-1)+a(n-2)+Sum_digits[a(n-1)]+Sum_digits[a(n-2)]}, with a(0)=0 and a(1)=1.
|
|
1
|
|
|
0, 1, 2, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7, 8, 3, 4, 5, 9, 10, 11, 6, 7
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
After the first three terms the sequence is periodic: 6,7,8,3,4,5,9,10,11.
|
|
LINKS
|
|
|
MAPLE
|
P:=proc(n) local a, b, i, k, w, x, y; a:=0; b:=1; print(a); print(b); for i from 1 by 1 to n do w:=0; k:=a; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; x:=0; k:=b; while k>0 do x:=x+k-(trunc(k/10)*10); k:=trunc(k/10); od; c:=b; y:=0; k:=a+b+w+x; while k>0 do y:=y+k-(trunc(k/10)*10); k:=trunc(k/10); od; a:=b; b:=y; print(y); od; end: P(100);
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|