OFFSET
1,1
LINKS
MATHEMATICA
Array[LengthWhile[Reverse@ IntegerDigits[BitOr[2 #, DivisorSigma[1, #]], 2], # == 1 &] &, 105] (* Michael De Vlieger, Mar 30 2019 *)
PROG
(PARI)
A318466(n) = bitor(2*n, sigma(n));
(Python)
from sympy import divisor_sigma
def A324906(n): return ((m:=(n<<1)|int(divisor_sigma(n)))&~(m+1)).bit_length() # Chai Wah Wu, Jul 10 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 28 2019
STATUS
approved