A322129 Digital roots of A057084.
1, 8, 2, 6, 5, 1, 4, 6, 7, 8, 8, 9, 8, 1, 7, 3, 4, 8, 5, 3, 2, 1, 1, 9, 1, 8, 2, 6, 5, 1, 4, 6, 7, 8, 8, 9, 8, 1, 7, 3, 4, 8, 5, 3, 2, 1, 1, 9, 1, 8, 2, 6, 5, 1, 4, 6, 7, 8, 8, 9, 8, 1, 7, 3, 4, 8, 5, 3, 2, 1, 1
Offset: 1
Links
- Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
Crossrefs
Programs
-
GAP
A057084:=[1,8];; for n in [3..80] do A057084[n]:=8*(A057084[n-1]-A057084[n-2]);; od; a:=List(A057084,i->1+(i-1) mod 9); # Muniru A Asiru, Nov 29 2018
-
Mathematica
digRoot[n_]:=FixedPoint[Total[IntegerDigits[#, 10]] &, n] ; digRoot/@LinearRecurrence[{8, -8}, {1, 8}, 100] (* Amiram Eldar, Nov 29 2018 *)
Comments