|
|
A070472
|
|
a(n) = n^3 mod 7.
|
|
3
|
|
|
0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1, 6, 1, 6, 6, 0, 1, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
Periodic with period 7.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = a(n-7).
G.f.: x*(1 + x + 6*x^2 + x^3 + 6*x^4 + 6*x^5)/(1-x^7). - Vincenzo Librandi, Mar 27 2016
|
|
MATHEMATICA
|
PowerMod[Range[0, 120], 3, 7] (* or *) LinearRecurrence[{0, 0, 0, 0, 0, 0, 1}, {0, 1, 1, 6, 1, 6, 6}, 120] (* or *) PadRight[{}, 120, {0, 1, 1, 6, 1, 6, 6}] (* Harvey P. Dale, Nov 29 2013 *)
|
|
PROG
|
(Sage) [power_mod(n, 3, 7 ) for n in range(0, 101)] # Zerinvary Lajos, Oct 29 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|