A158012 A000796(n)*A000796(n+1) mod 9.
3, 4, 4, 5, 0, 0, 3, 3, 6, 6, 4, 0, 0, 0, 0, 6, 6, 6, 5, 6, 3, 3, 6, 3, 0, 6, 6, 6, 5, 0, 0, 0, 0, 7, 1, 5, 4, 0, 0, 7, 6, 0, 0, 0, 0, 0, 3, 8, 5, 0, 0, 4, 7, 0, 0, 0, 1, 0, 0, 7, 2, 0, 0, 6, 0, 0, 2, 8, 6, 6, 0, 0, 3, 7, 3, 3, 0, 0, 0, 0, 0, 3, 3, 7, 0, 0, 3, 5, 7, 1, 6, 3, 8, 2, 1, 7, 0, 0, 6, 0, 0, 7, 2, 4, 5, 0
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Mod[Times@@@Partition[RealDigits[Pi,10,120][[1]],2,1],9] (* Harvey P. Dale, Jun 18 2024 *)
Extensions
Extended by R. J. Mathar, May 21 2009
Comments