|
%I #21 Dec 21 2021 10:15:30
%S 0,1,2,3,4,5,6,1,2,3,4,5,6,0,2,3,4,5,6,0,1,3,4,5,6,0,1,2,4,5,6,0,1,2,
%T 3,5,6,0,1,2,3,4,6,0,1,2,3,4,5,1,2,3,4,5,6,0,2,3,4,5,6,0,1,3,4,5,6,0,
%U 1,2,4,5,6,0,1,2,3,5,6,0,1,2,3,4,6,0,1,2,3,4,5,0,1,2,3,4,5,6,2,3,4,5,6,0,1
%N (Sum of digits of n written in base 7) modulo 7.
%C a(n) is the sixth row of the array in A141803. - _Andrey Zabolotskiy_, May 18 2016
%H G. C. Greubel, <a href="/A053842/b053842.txt">Table of n, a(n) for n = 0..5000</a>
%H Robert Walker, <a href="http://robertinventor.com/ftswiki/Self_Similar_Sloth_Canon_Number_Sequences">Self Similar Sloth Canon Number Sequences</a>
%F a(n) = A010876(A053828(n)). - _Andrey Zabolotskiy_, May 18 2016
%t Table[Mod[Plus @@ IntegerDigits[n, 7], 7], {n, 0, 50}] (* _G. C. Greubel_, Nov 02 2017 *)
%o (PARI) a(n) = vecsum(digits(n, 7)) % 7; \\ _Michel Marcus_, May 18 2016
%Y Cf. A010060.
%K base,nonn
%O 0,3
%A _Henry Bottomley_, Mar 28 2000
|
