|
|
A118862
|
|
Start with 1 and repeatedly place the first digit at the end of the number and add 15.
|
|
0
|
|
|
1, 16, 76, 82, 43, 49, 109, 106, 76, 82, 43, 49, 109, 106, 76, 82, 43, 49, 109, 106, 76, 82, 43, 49, 109, 106, 76, 82, 43, 49, 109, 106, 76, 82, 43, 49, 109, 106, 76, 82, 43, 49, 109, 106, 76, 82, 43, 49, 109, 106, 76, 82, 43, 49, 109, 106, 76, 82, 43, 49, 109, 106, 76, 82
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
After 2 steps the sequence enters a cycle of length 6.
|
|
LINKS
|
|
|
FORMULA
|
G.f.: -x*(90*x^7+108*x^6+49*x^5+43*x^4+82*x^3+76*x^2+16*x+1) / ((x-1)*(x+1)*(x^2-x+1)*(x^2+x+1)). - Colin Barker, Oct 02 2014
|
|
MATHEMATICA
|
NestList[FromDigits[RotateLeft[IntegerDigits[#]]]+15&, 1, 70] (* or *) PadRight[ {1, 16}, 70, {109, 106, 76, 82, 43, 49}] (* Harvey P. Dale, Sep 20 2014 *)
|
|
PROG
|
(PARI) Vec((90*x^7+108*x^6+49*x^5+43*x^4+82*x^3+76*x^2+16*x+1)/(-x^6+1) + O(x^100)) \\ Colin Barker, Oct 02 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn,easy
|
|
AUTHOR
|
Luc Stevens (lms022(AT)yahoo.com), May 24 2006
|
|
STATUS
|
approved
|
|
|
|