A158289 -id:A158289 - cp's OEIS frontend

A199264 Period 18: repeat (9,8,7,6,5,4,3,2,1,0,1,2,3,4,5,6,7,8).

9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5

Offset: 0

Arkadiusz Wesolowski, Nov 04 2011

'Valley and Peak' sequence.
The sequence contains only values less than 10.
abs(a(n)-a(n+1)) = 1.
This sequence is in A158289. - Omar E. Pol, Feb 02 2012

Arkadiusz Wesolowski, Table of n, a(n) for n = 0..10000
Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,0,0,0,0,-1,1).

Cf. A158289.

Flatten[Table[{9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8}, {5}]] (* Arkadiusz Wesolowski, Dec 03 2011 *)
(* For Mathematica 7.0+ *) ArrayPad[Range[0, 9], {9, 68}, "Reflected"] (* Arkadiusz Wesolowski, Feb 02 2011 *)
Table[Abs[Mod[n, 18] - 9], {n, 0, 81}] (* Alonso del Arte, Jul 03 2012 *)
PadRight[{},90,Join[Range[9,0,-1],Range[8]]] (* Harvey P. Dale, Apr 08 2013 *)

a(n)=[9,8,7,6,5,4,3,2,1,0,1,2,3,4,5,6,7,8][n%18+1] \\ Charles R Greathouse IV, Jul 17 2016

a(n) = 9 - A158289(n).
G.f.: ( -9+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8-8*x^9 ) / ( (x-1)*(1+x)*(x^2-x+1)*(x^6-x^3+1) ). - R. J. Mathar, Nov 05 2011
a(n) = A158289(n+9). - Omar E. Pol, Feb 02 2012
a(n) = abs((n mod 18) - 9). - Alonso del Arte, Jul 03 2012

A164360 Period 3: repeat [5, 4, 3].

Original entry on oeis.org

5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3, 5, 4, 3

Offset: 0

Stephen Crowley, Aug 14 2009

From Klaus Brockhaus, May 29 2010: (Start)
Continued fraction expansion of (32+sqrt(1297))/13.
Decimal expansion of 181/333. (End)

Index entries for linear recurrences with constant coefficients, signature (0,0,1).

Cf. A007877 (repeat 0,1,2,1), A068073 (repeat 1,2,3,2), A028356 (repeat 1,2,3,4,3,2), A130784 (repeat 1,3,2), A158289 (repeat 0,1,2,3,4,5,6,7,8,9,8,7,6,5,4,3,2,1).

Cf. A178566 (decimal expansion of (32+sqrt(1297))/13). [Klaus Brockhaus, May 29 2010]

[ n le 3 select 6-n else Self(n-3):n in [1..105] ]; // Klaus Brockhaus, Sep 17 2009

&cat [[5, 4, 3]^^30]; // Wesley Ivan Hurt, Jul 01 2016

seq(op([5, 4, 3]), n=0..50); # Wesley Ivan Hurt, Jul 01 2016

PadRight[{}, 100, {5, 4, 3}] (* Wesley Ivan Hurt, Jul 01 2016 *)

a(n) = 4+(-1)^n*((1/2+I*sqrt(3)/6)*((1+I*sqrt(3))/2)^n+(1/2-I*sqrt(3)/6)*((1-I*sqrt(3))/2)^n). [Corrected by Klaus Brockhaus, Sep 17 2009]
a(n) = 4+(1/3)*sqrt(3)*sin(2*n*Pi/3)+cos(2*n*Pi/3). [Corrected by Klaus Brockhaus, Sep 17 2009]
a(n) = a(n-3) for n > 2, with a(0) = 5, a(1) = 4, a(2) = 3.
G.f.: (5+4*x+3*x^2)/((1-x)*(1+x+x^2)). [Klaus Brockhaus, Sep 17 2009]
E.g.f.: 4*exp(x)+(1/3)*sqrt(3)*exp(-(1/2)*x)*sin((1/2)*x*sqrt(3))+exp(-(1/2)*x)*cos((1/2)*x*sqrt(3)).
a(n) = 4 + A057078(n). - Wesley Ivan Hurt, Jul 01 2016

Edited by Klaus Brockhaus, Sep 17 2009

Offset changed to 0 and formulas adjusted by Klaus Brockhaus, May 18 2010

A262734 Period 16: repeat (1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9

Offset: 0

Ilya Gutkovskiy, Sep 29 2015

Decimal expansion of 111111112/900000009.

For n which lies in the interval [16*(k-1), 8*(2*k-1)], where k>0 -> pattern {1, 2, 3, 4, 5, 6, 7, 8, 9}; for n which lies in the interval [16*k - 7, 16*k - 1], where k>0 -> pattern {8, 7, 6, 5, 4, 3, 2}.

Colin Barker, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,0,0,0,-1,1).

Cf. A158289, A177274, A010889, A138531, A181975, A199264, A068073, A028356.

&cat[[1,2,3,4,5,6,7,8,9,8,7,6,5,4,3,2]: n in [0..10]]; // Vincenzo Librandi, Sep 29 2015

LinearRecurrence[{1, 0, 0, 0, 0, 0, 0, -1, 1}, {1, 2, 3, 4, 5, 6, 7, 8, 9}, 120] (* Vincenzo Librandi, Sep 29 2015 *)

Vec(-(2*x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1)/((x-1)*(x^8+1)) + O(x^100)) \\ Colin Barker, Sep 29 2015

111111112/900000009. \\ Altug Alkan, Sep 29 2015

vector(200, n, default(realprecision, n+2); floor(111111112/900000009*10^n)%10) \\ Altug Alkan, Nov 12 2015

-1 + a(16*(k - 1)) = -2 + a(8*k + 3*(-1)^k - 4) = -3 + a(2*(4*k + (-1)^k - 2)) = -4 + a(8*k + (-1)^k - 4) = -5 + a(4*(2*k - 1)) = -6 + a(8*k - (-1)^k - 4) = -7 + a(-2*(-4*k + (-1)^k + 2)) = -8 + a(8*k - 3*(-1)^k - 4) = -9 + a(8*(2*k - 11)) = 0, for k>0.
a(0) = 1, a(n) = a(n+1) - 1, for 16*(k - 1) <= n < 8*(2*k - 1), and a(n) = a(n + 1) + 1, for 8*(2*k - 1) <= n < 16*k, where k>0.
From Colin Barker, Sep 29 2015: (Start)
a(n) = a(n-1) - a(n-8) + a(n-9) for n>8.
G.f.: -(2*x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1) / ((x-1)*(x^8+1)). (End)

cp's OEIS Frontend

A199264 Period 18: repeat (9,8,7,6,5,4,3,2,1,0,1,2,3,4,5,6,7,8).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A164360 Period 3: repeat [5, 4, 3].

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Magma

Maple

Mathematica

Formula

Extensions

A262734 Period 16: repeat (1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

PARI

PARI

Formula