|
|
A136619
|
|
a(1) = 1, then repeat period 3: [1, 4, 2].
|
|
1
|
|
|
1, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4, 2, 1, 4
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
G.f.: x*(x^3 + 4*x^2 + x + 1)/(1 - x^3). - Ralf Stephan, Nov 29 2013
a(n) = a(n-3) for n>4.
a(n) = (7 + 5*cos(2*n*Pi/3) + sqrt(3)*sin(2*n*Pi/3))/3 for n>1. (End)
|
|
MAPLE
|
|
|
MATHEMATICA
|
Clear[A, m, n]; m = 3; A[0] = 1; A[1] = (m - 1)/2; A[n_] := A[n] = If[Mod[A[n - 1], 2] == 0, A[n - 1]/2, (m - A[n - 1]) 2]; Table[A[n], {n, 0, 110}]
Join[{1}, PadRight[{}, 110, {1, 4, 2}]] (* Bruno Berselli, Nov 30 2013 *)
|
|
PROG
|
(PARI) lista(nn) = {m = 3; a = 1; print1(a, ", "); a = (m - 1)/2; print1(a, ", "); for (n=2, nn, print1(a, ", "); if ((a % 2) == 0, a = a/2, a = 2*(m-a)); ); } \\ Michel Marcus, Nov 30 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|