login
Digital root of 5n.
7

%I #21 Mar 12 2024 14:18:25

%S 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,

%T 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,

%U 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

%N Digital root of 5n.

%C Period of 9. - _Robert G. Wilson v_, Sep 20 2010

%H <a href="/index/Rec#order_09">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,0,0,0,1).

%F 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

%t f[n_] := Mod[5 n - 1, 9] + 1; f[0] = 0; Array[f, 105, 0] (* _Robert G. Wilson v_, Sep 20 2010 *)

%t Join[{0}, ReplaceAll[Table[Mod[5n, 9], {n, 99}], {0 -> 9}]] (* _Alonso del Arte_, Sep 23 2012 *)

%t PadRight[{0},120,{9,5,1,6,2,7,3,8,4}] (* _Harvey P. Dale_, Jan 10 2024 *)

%Y Cf. A007953, A010888, A180592, A180594.

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

%K easy,nonn,base

%O 0,2

%A _Odimar Fabeny_, Sep 10 2010

%E More terms from _Robert G. Wilson v_, Sep 20 2010