|
| |
|
|
A105870
|
|
Fibonacci sequence (mod 7).
|
|
5
| |
|
|
1, 1, 2, 3, 5, 1, 6, 0, 6, 6, 5, 4, 2, 6, 1, 0, 1, 1, 2, 3, 5, 1, 6, 0, 6, 6, 5, 4, 2, 6, 1, 0, 1, 1, 2, 3, 5, 1, 6, 0, 6, 6, 5, 4, 2, 6, 1, 0, 1, 1, 2, 3, 5, 1, 6, 0, 6, 6, 5, 4, 2, 6, 1, 0, 1, 1, 2, 3, 5, 1, 6, 0, 6, 6, 5, 4, 2, 6, 1, 0, 1, 1, 2, 3, 5, 1, 6, 0, 6, 6, 5, 4, 2, 6, 1, 0, 1, 1, 2, 3
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
FORMULA
| a(n)=1/1920*{-71*(n mod 16)+169*[(n+1) mod 16]+649*[(n+2) mod 16]-431*[(n+3) mod 16]+289*[(n+4) mod 16]+169*[(n+5) mod 16]+169*[(n+6) mod 16]+49*[(n+7) mod 16]-671*[(n+8) mod 16]+769*[(n+9) mod 16]-551*[(n+10) mod 16]+529*[(n+11) mod 16]-191*[(n+12) mod 16]-71*[(n+13) mod 16]-71*[(n+14) mod 16]+49*[(n+15) mod 16]} with n>=0 - Paolo P. Lava (paoloplava(AT)gmail.com), Nov 28 2006
|
|
|
EXAMPLE
| Sequence is periodic with Pisano period 16.
|
|
|
MATHEMATICA
| f[n_]:=Mod[Fibonacci[n], 7]; lst={}; Do[AppendTo[lst, f[n]], {n, 0, 6!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 18 2010]
|
|
|
CROSSREFS
| Sequence in context: A039704 A002752 A128047 * A096534 A139047 A191795
Adjacent sequences: A105867 A105868 A105869 * A105871 A105872 A105873
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Shyam Sunder Gupta (guptass(AT)rediffmail.com), May 05 2005
|
| |
|
|
