%I #8 Nov 26 2017 07:15:08
%S 1,0,1,1,0,0,2,0,1,0,0,1,2,0,0,1,0,0,2,0,2,0,0,0,1,0,1,2,0,0,2,0,0,0,
%T 0,1,2,0,2,0,0,0,2,0,0,0,0,1,3,0,0,2,0,0,0,0,2,0,0,0,2,0,2,1,0,0,2,0,
%U 0,0,0,0,2,0,1,2,0,0,2,0,1,0,0,2,0,0,0,0,0,0,4,0,2,0,0,0,2,0,0,1,0,0,2,0,0
%N Radix expansion of -1/6 in radix -exp(Pi/sqrt(3)).
%H Michael Somos, <a href="/A171774/b171774.txt">Table of n, a(n) for n = 1..10000</a>
%F If r = -exp(Pi/sqrt(3)) and q = 1/r, then -1/6 = Sum_{k>0} a(k) * q^k.
%e q + q^3 + q^4 + 2*q^7 + q^9 + q^12 + 2*q^13 + q^16 + 2*q^19 + 2*q^21 + ...
%o (PARI) {a(n) = local(x,r,k); if( n<1, 0, default(realprecision, n ); r = -exp(Pi / sqrt(3)); x = -r/6; for(i=1, n, x = (x - (k = if(x>0, round(x), 0)))*r); k)};
%Y Differs from A002324 for the first time at n = 300, where a(300) = 0, while A002324(300) = 1.
%K nonn
%O 1,7
%A _Michael Somos_, Dec 18 2009