OFFSET
1,1
COMMENTS
Computed by Wolfram's 2-state 2-symbol Turing machine 2223 when started with n on the tape.
Bitflip of the second lowest bit of the odd part of n. - Ruud H.G. van Tol, Apr 26 2026
LINKS
Sean A. Irvine, Table of n, a(n) for n = 1..1000
Stephen Wolfram, P vs. NP and the Difficulty of Computation: A Ruliological Approach, 2026.
MATHEMATICA
a[n_] := BitXor[n, 2*BitAnd[n, -n]]; Array[a, 68] (* Michael De Vlieger, Feb 06 2026 *)
PROG
(PARI) a(n) = bitxor(n, 2*bitand(n, -n)); \\ Michel Marcus, Feb 05 2026
(PARI) a(n) = bitxor(n, 2<<valuation(n, 2)); \\ Ruud H.G. van Tol, Apr 26 2026
(Python)
def A393187(n): return n^((n&-n)<<1) # Chai Wah Wu, Feb 07 2026
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Sean A. Irvine, Feb 04 2026
STATUS
approved
