|
%I #18 Jul 28 2016 21:56:35
%S 1,0,0,1,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,1,0,0,0,0,
%T 0,1,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,
%U 0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,1,0,0,0
%N Expansion of 4/3 in base phi.
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,1,0,-1,0,1).
%F G.f.: x*(1-x^2+x^3+x^4-x^6)/(1-x^2+x^4-x^6). [_Bruno Berselli_, Apr 06 2012]
%F a(n) = A000475(n)(mod 2) for n > 3. - _John M. Campbell_, Jul 14 2016
%t RealDigits[ 4/3, GoldenRatio, 111][[1]] (* or *)
%t LinearRecurrence[{0,1,0,-1,0,1},{1,0,0,1,0,1,0},110] (* _Harvey P. Dale_, Jun 16 2016 *)
%K nonn,base,easy
%O 1,1
%A _Robert G. Wilson v_, Feb 26 2010
|
