login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A143044 A nonsense sequence. 0
1, 1, -3, 0, 0, 4, 6, 5, 18, -23, -24, 24, 17, 88, -7, 145, 5, -376, 376, -236, 654, -755, 34, 3025, -2992, 2992, -5983, -720, -11279, -18015, 48141, -112, 112, -66268, -95338, -85227, -294862, 389049, 381240, -381240, -302671, -1445240, 69609, -2448591, 110613, 6162200, -6162200, 3602996 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,3
LINKS
MATHEMATICA
m0 = Inverse[{{0, I}, {I, 1}}];
M[0] = {{0, -1}, {-1, -1}}.m0;
M[1] = {{1, 0}, {-1, -1}}.m0;
M[2] = {{-1, 0}, {-1, -1}}.m0;
M[3] = {{0, 1}, {-1, -1}}.m0;
M[4] = I*{{0, -1}, {-1, -1}}.m0;
M[5] = I*{{1, 0}, {-1, -1}}.m0;
M[6] = I*{{-1, 0}, {-1, -1}}.m0;
M[7] = I*{{0, 1}, {-1, -1}}.m0;
v[0] = {1, 1};
v[n_] := v[n] = M[Mod[n, 7]].v[n - 1];
ar = Table[Re[v[n][[1]]], {n, 0, 50}]
CROSSREFS
Sequence in context: A304263 A305223 A316801 * A350789 A361357 A305151
KEYWORD
uned,obsc,less,sign
AUTHOR
Roger L. Bagula, Oct 13 2008
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 13:42 EDT 2024. Contains 371254 sequences. (Running on oeis4.)