|
%I #17 Jan 03 2023 11:21:17
%S 0,1,1,1,1,0,2,2,2,2,0,2,2,2,2,0,2,2,2,2,0,2,2,2,2,0,1,1,1,1,0,3,3,3,
%T 3,0,3,3,3,3,0,3,3,3,3,0,3,3,3,3,0,1,1,1,1,0,3,3,3,3,0,3,3,3,3,0,3,3,
%U 3,3,0,3,3,3,3,0,1,1,1,1,0,3,3,3,3,0,3,3,3,3,0,3,3,3,3,0,3,3,3,3,0,1,1,1,1,0,3
%N Written in base 5, n ends in a(n) consecutive nonzero digits.
%C Sequences A215879, A215883 and A215887 are the base 3, 4 and 10 analogs, while the base 2 analog of this sequence coincides (up to a shift in the index) with the 2-adic valuation A007814, cf. comments there.
%H Harvey P. Dale, <a href="/A215884/b215884.txt">Table of n, a(n) for n = 0..1000</a>
%e The numbers 24,...,31 are written in base 5 as 44,100,101,102,103,104,110,111 and thus end in a string of a(24..31)=2,0,1,1,1,1,0,3 nonzero digits.
%t cnzd[n_]:=Module[{c=Split[If[#>0,1,0]&/@IntegerDigits[n,5]]},If[FreeQ[ c[[-1]],0],Total[c[[-1]]],0]]; Array[cnzd,120,0] (* _Harvey P. Dale_, Jan 03 2023 *)
%o (PARI) a(n,b=5)=n=divrem(n,b); for(c=0,9e9,n[2]||return(c); n=divrem(n[1],b))
%o (PARI) a(n)=my(k);while(n%5,n\=5;k++);k \\ _Charles R Greathouse IV_, Sep 26 2013
%K nonn,base
%O 0,7
%A _M. F. Hasler_, Aug 25 2012
|
