OFFSET
1,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..2000
EXAMPLE
r has binary digits 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 1, ...
s has binary digits 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, ...
so that a(1) = 2 and a(2) = 4.
MATHEMATICA
z = 400; r1 = GoldenRatio; r = FractionalPart[r1]; s = FractionalPart[r1/2];
u = Flatten[{ConstantArray[0, -#[[2]]], #[[1]]}] &[RealDigits[r, 2, z]];
v = Flatten[{ConstantArray[0, -#[[2]]], #[[1]]}] &[RealDigits[s, 2, z]];
t = Table[If[u[[n]] == v[[n]], 1, 0], {n, 1, z}];
Flatten[Position[t, 1]] (* A247523 *)
Flatten[Position[t, 0]] (* A247524 *)
Module[{nn=150, gr, g2}, gr=Rest[RealDigits[GoldenRatio, 2, nn+1][[1]]]; g2 = RealDigits[ GoldenRatio/2, 2, nn][[1]]; Position[Thread[{gr, g2}], _?(#[[1]] != #[[2]]&), 1, Heads->False]]//Flatten (* Harvey P. Dale, Jun 28 2021 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Clark Kimberling, Sep 19 2014
STATUS
approved