A303296 Digital roots of fourth powers A000583.
1, 7, 9, 4, 4, 9, 7, 1, 9, 1, 7, 9, 4, 4, 9, 7, 1, 9, 1, 7, 9, 4, 4, 9, 7, 1, 9, 1, 7, 9, 4, 4, 9, 7, 1, 9, 1, 7, 9, 4, 4, 9, 7, 1, 9, 1, 7, 9, 4, 4, 9, 7, 1, 9, 1, 7, 9, 4, 4, 9, 7, 1, 9, 1, 7, 9, 4, 4, 9, 7, 1, 9, 1, 7, 9, 4, 4, 9, 7, 1, 9, 1, 7, 9, 4, 4, 9, 7, 1, 9
Offset: 1
Links
- I. Izmirli, On Some Properties of Digital Roots, Advances in Pure Mathematics, Vol. 4 No. 6 (2014), Article ID:47285.
- Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,0,0,1).
Programs
-
Mathematica
Table[FixedPoint[Total[IntegerDigits[#]] &, n^4], {n, 90}]
-
PARI
a(n) = (n^4-1)%9+1; \\ Michel Marcus, Apr 22 2018
Comments