%I #43 Aug 09 2024 05:09:24
%S 0,1,2,3,4,1,2,3,4,0,2,3,4,0,1,3,4,0,1,2,4,0,1,2,3,1,2,3,4,0,2,3,4,0,
%T 1,3,4,0,1,2,4,0,1,2,3,0,1,2,3,4,2,3,4,0,1,3,4,0,1,2,4,0,1,2,3,0,1,2,
%U 3,4,1,2,3,4,0,3,4,0,1,2,4,0,1,2,3,0,1,2,3,4,1,2,3,4,0,2,3,4,0,1,4,0,1,2,3
%N (Sum of digits of n written in base 5) modulo 5.
%C a(n) is the fourth row of the array in A141803. - _Andrey Zabolotskiy_, May 16 2016
%H Michael De Vlieger, <a href="/A053840/b053840.txt">Table of n, a(n) for n = 0..10000</a>
%H Glen Joyce C. Dulatre, Jamilah V. Alarcon, Vhenedict M. Florida and Daisy Ann A. Disu, <a href="http://docplayer.net/87034980-Vol-15-no-2-april-2017-dmmmsu-cas-science-monitor.html">On Fractal Sequences</a>, DMMMSU-CAS Science Monitor (2016-2017) Vol. 15 No. 2, 109-113.
%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) = A010874(A053824(n)). - _Andrey Zabolotskiy_, May 18 2016
%t Mod[Total@ IntegerDigits[#, 5], 5] & /@ Range[0, 120] (* _Michael De Vlieger_, May 17 2016 *)
%o (PARI) a(n) = vecsum(digits(n,5)) % 5; \\ _Michel Marcus_, May 16 2016
%Y Cf. A010874, A053824, A141803.
%Y Cf. A010060, A053837-A053844.
%K base,nonn
%O 0,3
%A _Henry Bottomley_, Mar 28 2000