%I #20 Jan 24 2020 14:09:55
%S 1,0,0,1,0,0,1,0,0,2,1,1,1,0,0,1,0,0,2,1,1,1,0,0,1,0,0,3,2,2,1,1,1,1,
%T 1,1,2,1,1,1,0,0,1,0,0,2,1,1,1,0,0,1,0,0,3,2,2,1,1,1,1,1,1,2,1,1,1,0,
%U 0,1,0,0,2,1,1,1,0,0,1,0,0,4,3,3,2,2,2,2,2,2,2
%N Length of the longest run of 0's in the ternary expression of n.
%C All numbers appear in this sequence. The n-th power of 3 (A000244(n)) has n 0's in its ternary expression.
%C The longest run of zeros possible in this sequence is 2, as the last digit of the ternary expression of the integers cycles between 0, 1, and 2, meaning that at least one of three consecutive numbers has a 0 in its ternary expression.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Ternary_numeral_system">Ternary numeral system</a>.
%F a(A000244(n)) = a(3^n) = n.
%F a(n) = 0 iff n is in A032924.
%e For n = 87, the ternary expression of 87 is 10020. The length of the runs of 0's in the ternary expression of 87 are 2 and 1, respectively. The larger of these two values is 2, so a(87) = 2.
%e n [ternary n] a(n)
%e 0 [ 0] 1
%e 1 [ 1] 0
%e 2 [ 2] 0
%e 3 [ 1 0] 1
%e 4 [ 1 1] 0
%e 5 [ 1 2] 0
%e 6 [ 2 0] 1
%e 7 [ 2 1] 0
%e 8 [ 2 2] 0
%e 9 [ 1 0 0] 2
%e 10 [ 1 0 1] 1
%e 11 [ 1 0 2] 1
%e 12 [ 1 1 0] 1
%e 13 [ 1 1 1] 0
%e 14 [ 1 1 2] 0
%e 15 [ 1 2 0] 1
%e 16 [ 1 2 1] 0
%e 17 [ 1 2 2] 0
%e 18 [ 2 0 0] 2
%e 19 [ 2 0 1] 1
%e 20 [ 2 0 2] 1
%t Table[Max@FoldList[If[#2==0,#1+1,0]&,0,IntegerDigits[n,3]],{n,0,90}]
%Y Cf. A000244, A007089, A077267, A087117, A330036, A330167, A330168.
%Y Equals zero iff n is in A032924.
%K nonn,base
%O 0,10
%A _Joshua Oliver_, Dec 04 2019