A180594 Digital root of 4n.

0, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2, 6, 1, 5, 9, 4, 8, 3, 7, 2

Offset

0,2

Comments

Period of 9. - Robert G. Wilson v, Sep 20 2010

Links

Table of n, a(n) for n=0..104.

Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,0,0,1).

Formula

G.f.: -x*(9*x^8+5*x^7+x^6+6*x^5+2*x^4+7*x^3+3*x^2+8*x+4)/((x-1)*(x^2+x+1)*(x^6+x^3+1)). - Colin Barker, Sep 23 2012

Mathematica

f[n_] := Mod[4 n - 1, 9] + 1; f[0] = 0; Array[f, 105, 0] (* Robert G. Wilson v, Sep 20 2010 *)
Join[{0}, ReplaceAll[Table[Mod[4n, 9], {n, 99}], {0 -> 9}]] (* Alonso del Arte, Sep 23 2012 *)
LinearRecurrence[{0, 0, 0, 0, 0, 0, 0, 0, 1}, {0, 4, 8, 3, 7, 2, 6, 1, 5, 9}, 120] (* or *) PadRight[ {0}, 120, {9, 4, 8, 3, 7, 2, 6, 1, 5}] (* Harvey P. Dale, Aug 09 2022 *)

Crossrefs

Cf. A007953, A010888, A180592.

Cf. A180592, A180593, A180595, A180596, A180597, A180598, A180599.

Sequence in context: A229988 A273051 A021678 * A066199 A103647 A033197

Adjacent sequences: A180591 A180592 A180593 * A180595 A180596 A180597

Keyword

easy,nonn,base

Author

Odimar Fabeny, Sep 10 2010

Extensions

More terms from Robert G. Wilson v, Sep 20 2010

Status

approved