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 A333746 #5 Apr 03 2020 21:04:08
%S A333746 23284,77906,509737,717817,996601,1132177,1550377,3264241,3896546,
%T A333746 4326962,4491362,4542457,5978857,7097161,8981977,9628921,10140386,
%U A333746 11098201,11472337,12078217,12699122,13335457,14079577,16795417,17796146,17807017,18832082,20221106,21096146
%N A333746 Numbers k such that k, k+1 and k+2 have the same period of binary representation (A007733).
%C A333746 Numbers k such that A007733(k) = A007733(k+1) = A007733(k+2).
%e A333746 23284 is a term since A007733(23284) = A007733(23285) = A007733(23286) = 388.
%t A333746 f[n_] := MultiplicativeOrder[2, n/(2^IntegerExponent[n, 2])]; f1 = f[1]; f2 = f[2]; seq = {}; Do[f3 = f[n]; If[f1 == f2 && f2 == f3, AppendTo[seq, n-2]]; f1 = f2; f2 = f3, {n, 3, 10^6}]; seq
%Y A333746 Cf. A007733, A333745.
%K A333746 nonn
%O A333746 1,1
%A A333746 _Amiram Eldar_, Apr 03 2020