|
|
A117230
|
|
Start with 1 and repeatedly reverse the digits and add 1 to get the next term.
|
|
8
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
Has period 9.
G.f.: -x*(9*x^9 +9*x^8 +8*x^7 +7*x^6 +6*x^5 +5*x^4 +4*x^3 +3*x^2 +2*x +1) / ((x -1)*(x^2 +x +1)*(x^6 +x^3 +1)). - Colin Barker, May 23 2014
|
|
MAPLE
|
read transforms; t1:=[1]; for n from 1 to 80 do t1:=[op(t1), 1+digrev(t1[n])]; od:
|
|
MATHEMATICA
|
Join[{1}, LinearRecurrence[{0, 0, 0, 0, 0, 0, 0, 0, 1}, {2, 3, 4, 5, 6, 7, 8, 9, 10}, 99]] (* Ray Chandler, Jul 18 2015 *)
|
|
PROG
|
(PARI) a(n)=if(n>1, (n-2)%9+2, 1) \\ M. F. Hasler, May 22 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Correction to the terms of the sequence (inserted missing term) Jeremy Gardiner, Jun 17 2010
|
|
STATUS
|
approved
|
|
|
|