OFFSET
1,3
LINKS
FORMULA
MATHEMATICA
Table[IntegerExponent[DivisorSigma[1, n], 2]+1, {n, 120}] (* Harvey P. Dale, Sep 04 2023 *)
PROG
(PARI)
A001511(n) = (1+valuation(n, 2));
for(n=1, 10000, write("b286357.txt", n, " ", A286357(n)));
(Scheme)
(Python)
from sympy import divisor_sigma as D
def a001511(n): return bin(n)[2:][::-1].index("1") + 1
def a(n): return a001511(D(n)) # Indranil Ghosh, May 12 2017
(Python)
from sympy import divisor_sigma
def A286357(n): return ((m:=int(divisor_sigma(n)))&-m).bit_length() # Chai Wah Wu, Jul 10 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 10 2017
STATUS
approved