A378384 Digital root of the sum of the previous 3 terms; a(0) = a(1) = a(2) = 1.
1, 1, 1, 3, 5, 9, 8, 4, 3, 6, 4, 4, 5, 4, 4, 4, 3, 2, 9, 5, 7, 3, 6, 7, 7, 2, 7, 7, 7, 3, 8, 9, 2, 1, 3, 6, 1, 1, 8, 1, 1, 1, 3, 5, 9, 8, 4, 3, 6, 4, 4, 5, 4, 4, 4, 3, 2, 9, 5, 7, 3, 6, 7, 7, 2, 7, 7, 7, 3, 8, 9, 2, 1, 3, 6, 1, 1, 8, 1, 1, 1, 3, 5, 9, 8, 4, 3, 6
Offset: 0
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,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1).
Programs
-
Mathematica
Nest[Append[#,ResourceFunction["AdditiveDigitalRoot"][Total[Take[#,-3]]]]&,{1,1,1},85]
Comments