[go: up one dir, main page]

login
A180595
Digital root of 5n.
7
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
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 *)
KEYWORD
easy,nonn,base
AUTHOR
Odimar Fabeny, Sep 10 2010
EXTENSIONS
More terms from Robert G. Wilson v, Sep 20 2010
STATUS
approved