OFFSET
1,2
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 2^floor(log(n)/log(2)) + n - 1.
a(n) = A004754(n) - 1. - Rémy Sigrist, May 05 2019
PROG
(PARI) a(n)=if(n<2, 1, if(n%2, a(n-1)+1, a(n/2)*2+1))
(PARI) a(n) = n + 1<<logint(n, 2) - 1; \\ Kevin Ryde, Jun 19 2021
(Haskell)
a092754 n = if n < 2 then n else 2 * a092754 n' + m + 1
where (n', m) = divMod n 2
a092754_list = map a092754 [1..]
-- Reinhard Zumkeller, May 07 2012
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 13 2004
STATUS
approved