1,2

Numbers k such that A007733(k) = A007733(k+1).

Amiram Eldar, Table of n, a(n) for n = 1..10000

1 is a term since A007733(1) = A007733(2) = 1.

90 is a term since A007733(90) = A007733(91) = 12.

f[n_] := MultiplicativeOrder[2, n/(2^IntegerExponent[n, 2])]; Select[Range[10^4], f[#] == f[# + 1] &]

Cf. A007733, A333746.

Sequence in context: A147676 A045097 A074817 * A043224 A039401 A044004

Adjacent sequences: A333742 A333743 A333744 * A333746 A333747 A333748

nonn

Amiram Eldar, Apr 03 2020

approved