OFFSET
0,2
COMMENTS
LINKS
Altug Alkan, Table of n, a(n) for n = 0..10000
MAPLE
seq(numer((2*n+1)/(4^(2*n+1)-2^(2*n+1))), n=0..32);
seq(numer((2*n+1)/(2^(2*n+1)-1)), n=0..50); # Altug Alkan, Apr 21 2018
MATHEMATICA
Array[Numerator[(2 # + 1)/(2^(2 # + 1) - 1)] &, 64, 0] (* Michael De Vlieger, Apr 21 2018 *)
PROG
(PARI) vector(80, n, n--; numerator((2*n+1)/(4^(2*n+1)-2^(2*n+1)))) \\ Michel Marcus, Jan 31 2015
(PARI) forstep(k=1, 1e3, 2, print1(numerator(k/(2^k-1)), ", ")); \\ Altug Alkan, Apr 21 2018
(Magma) [Numerator((2*n+1)/(2^(2*n+1)-1)): n in [0..70]]; // Vincenzo Librandi, Apr 25 2018
CROSSREFS
KEYWORD
easy,frac,nonn
AUTHOR
Peter Luschny, May 03 2009
EXTENSIONS
More terms from Michel Marcus, Jan 31 2015
Name simplified by Altug Alkan, Apr 21 2018
Further edited by N. J. A. Sloane, Apr 24 2018
STATUS
approved