A180595 Digital root of 5n.

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

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+4*x^7+8*x^6+3*x^5+7*x^4+2*x^3+6*x^2+x+5)/((x-1)*(x^2+x+1)*(x^6+x^3+1)). - Colin Barker, Sep 23 2012

Mathematica

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

Crossrefs

Cf. A007953, A010888, A180592, A180594.

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

Sequence in context: A348507 A066948 A064265 * A088401 A077491 A086231

Adjacent sequences: A180592 A180593 A180594 * A180596 A180597 A180598

Keyword

easy,nonn,base

Author

Odimar Fabeny, Sep 10 2010

Extensions

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

Status

approved