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

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.

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

Programs

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

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

Extensions

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