A333745 Numbers k such that the binary representations of 1/k and 1/(k+1) have the same period (A007733).
1, 90, 104, 164, 286, 457, 665, 702, 740, 836, 975, 1458, 1469, 1628, 2071, 2146, 2625, 2849, 3800, 4441, 4575, 5233, 5284, 5418, 5715, 6039, 6073, 6387, 6458, 6601, 6649, 7384, 7417, 8029, 8521, 9817, 10136, 11306, 11439, 11497, 11642, 12402, 12651, 13050, 13322
Offset: 1
Keywords
Examples
1 is a term since A007733(1) = A007733(2) = 1. 90 is a term since A007733(90) = A007733(91) = 12.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
f[n_] := MultiplicativeOrder[2, n/(2^IntegerExponent[n, 2])]; Select[Range[10^4], f[#] == f[# + 1] &]
Comments