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

Author

Odimar Fabeny, Sep 10 2010

Keywords

• easy
• nonn
• base

Comments

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

Links

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

Crossrefs

Cf. A007953, A010888, A180592, A180594.

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

Programs

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 *)

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

Extensions

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