|
%I #7 Nov 21 2013 12:46:43
%S 1,1,1,-1,-1,-1,-1,2,2,2,2,0,0,0,0,2,2,2,2,0,0,0,0,2,2,2,2,0,0,0,0,0,
%T 0,0,0,-2,-2,-2,-2,0,0,0,0,-2,-2,-2,-2,0,0,0,0,-2,-2,-2,-2,0,0,0,0,-2,
%U -2,-2,-2,3,3,3,3,1,1,1,1,3,3,3,3,1,1,1,1,3
%N a(n)=(number of digits <=3)-(number of digits >3) in base 8 representation of n.
%t d8[n_]:=Module[{idn8=IntegerDigits[n,8],lt4},lt4=Count[idn8,_?(#<4&)];2lt4-Length[idn8]]; Array[d8,80] (* _Harvey P. Dale_, Oct 22 2011 *)
%K sign,base
%O 0,8
%A _Clark Kimberling_
|
