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 A333745 #21 Mar 15 2022 22:45:50 %S A333745 1,90,104,164,286,457,665,702,740,836,975,1458,1469,1628,2071,2146, %T A333745 2625,2849,3800,4441,4575,5233,5284,5418,5715,6039,6073,6387,6458, %U A333745 6601,6649,7384,7417,8029,8521,9817,10136,11306,11439,11497,11642,12402,12651,13050,13322 %N A333745 Numbers k such that the binary representations of 1/k and 1/(k+1) have the same period (A007733). %C A333745 Numbers k such that A007733(k) = A007733(k+1). %H A333745 Amiram Eldar, <a href="/A333745/b333745.txt">Table of n, a(n) for n = 1..10000</a> %e A333745 1 is a term since A007733(1) = A007733(2) = 1. %e A333745 90 is a term since A007733(90) = A007733(91) = 12. %t A333745 f[n_] := MultiplicativeOrder[2, n/(2^IntegerExponent[n, 2])]; Select[Range[10^4], f[#] == f[# + 1] &] %Y A333745 Cf. A007733, A333746. %K A333745 nonn %O A333745 1,2 %A A333745 _Amiram Eldar_, Apr 03 2020