%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