This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A247524 #23 Jun 28 2021 13:42:59 %S A247524 2,4,8,11,13,14,17,18,22,24,26,27,30,32,33,34,41,42,43,45,46,47,48,50, %T A247524 55,60,61,62,63,64,69,71,74,76,79,81,83,90,92,98,99,100,103,105,108, %U A247524 109,111,112,115,117,118,123,125,126,127,132,133,137,138,143 %N A247524 Numbers k such that d(r,k) != d(s,k), where d(x,k) = k-th binary digit of x, r = {golden ratio}, s = {(golden ratio)/2}, and { } = fractional part. %C A247524 Every positive integer lies in exactly one of the sequences A247423 and A247524. %H A247524 Clark Kimberling, <a href="/A247524/b247524.txt">Table of n, a(n) for n = 1..2000</a> %e A247524 r has binary digits 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 1, ... %e A247524 s has binary digits 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, ... %e A247524 so that a(1) = 2 and a(2) = 4. %t A247524 z = 400; r1 = GoldenRatio; r = FractionalPart[r1]; s = FractionalPart[r1/2]; %t A247524 u = Flatten[{ConstantArray[0, -#[[2]]], #[[1]]}] &[RealDigits[r, 2, z]]; %t A247524 v = Flatten[{ConstantArray[0, -#[[2]]], #[[1]]}] &[RealDigits[s, 2, z]]; %t A247524 t = Table[If[u[[n]] == v[[n]], 1, 0], {n, 1, z}]; %t A247524 Flatten[Position[t, 1]] (* A247523 *) %t A247524 Flatten[Position[t, 0]] (* A247524 *) %t 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 *) %Y A247524 Cf. A247523. %K A247524 nonn,easy,base %O A247524 1,1 %A A247524 _Clark Kimberling_, Sep 19 2014