PROG
(MAGMAMagma) [Floor((-1 + 2^n)/(2*n + 1)): n in [1..50]]; // Vincenzo Librandi, Sep 12 2011
(MAGMAMagma) [Floor((-1 + 2^n)/(2*n + 1)): n in [1..50]]; // Vincenzo Librandi, Sep 12 2011
reviewed
approved
proposed
reviewed
editing
proposed
(PARI) a(n) = (2^n-1)\(2*n+1); \\ Altug Alkan, Sep 08 2018
proposed
editing
editing
proposed
proposed
approved
editing
proposed
(Maxima) A191630(n):=floor((-1+2^n)/(1+2*n))$ makelist(A191630(n), n, 1, 30); /*Martin Ettl, Oct 25 2012*/
approved
editing