A173858 Expansion of 4/3 in base phi.

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, 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, 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

Offset: 1

Author

Robert G. Wilson v, Feb 26 2010

Keywords

• nonn
• base
• easy

Links

• Index entries for linear recurrences with constant coefficients, signature (0,1,0,-1,0,1).

Programs

Mathematica

RealDigits[ 4/3, GoldenRatio, 111][[1]] (* or *)
LinearRecurrence[{0,1,0,-1,0,1},{1,0,0,1,0,1,0},110] (* Harvey P. Dale, Jun 16 2016 *)

Formula

G.f.: x*(1-x^2+x^3+x^4-x^6)/(1-x^2+x^4-x^6). [Bruno Berselli, Apr 06 2012]

a(n) = A000475(n)(mod 2) for n > 3. - John M. Campbell, Jul 14 2016