A180596 Digital root of 6n.
0, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3, 9, 6, 3
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (0,0,1).
Crossrefs
Programs
-
Mathematica
f[n_] := Mod[6 n - 1, 9] + 1; f[0] = 0; Array[f, 105, 0] (* Robert G. Wilson v, Sep 20 2010 *) PadRight[{0},120,{9,6,3}] (* Harvey P. Dale, Dec 18 2012 *)
Formula
G.f.: 3*x*(2 + x + 3*x^2)/(1 - x^3). - Stefano Spezia, Apr 21 2022
Extensions
More terms from Robert G. Wilson v, Sep 20 2010
Comments