login
A131718
Period 6: repeat [1, 1, 2, 1, 2, 1].
4
1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2
OFFSET
0,3
COMMENTS
Decimal expansion of 112121/999999. - Klaus Brockhaus, May 21 2010
FORMULA
G.f.: (1+x+2*x^2+x^3+2*x^4+x^5)/((1-x)*(1+x)*(x^2+x+1)*(x^2-x+1)). - R. J. Mathar, Jan 17 2008
From Wesley Ivan Hurt, Jun 17 2016: (Start)
a(n) = a(n-6) for n>5.
a(n) = (4 + cos(n*Pi) - cos(n*Pi/3) - cos(2*n*Pi/3))/3. (End)
MAPLE
A131718:=n->(4+cos(n*Pi)-cos(n*Pi/3)-cos(2*n*Pi/3))/3: seq(A131718(n), n=0..100); # Wesley Ivan Hurt, Jun 17 2016
MATHEMATICA
Flatten[Table[{1, 1, 2, 1, 2, 1}, {20}]] (* Wesley Ivan Hurt, Jun 17 2016 *)
PROG
(Magma) &cat[[1, 1, 2, 1, 2, 1]: k in [1..30]]; // Vincenzo Librandi, Nov 23 2010
(PARI) a(n)=[1, 1, 2, 1, 2, 1][n%6+1] \\ Charles R Greathouse IV, Jun 02 2011
CROSSREFS
Cf. A178149 (decimal expansion of (15+sqrt(1365))/30). - Klaus Brockhaus, May 21 2010
Sequence in context: A187284 A160198 A207709 * A131017 A244227 A214713
KEYWORD
nonn,easy,less
AUTHOR
Paul Curtz, Sep 15 2007
EXTENSIONS
More terms from Klaus Brockhaus, May 21 2010
STATUS
approved