A160145 a(n) = the odd number 2n+1 minus the numerator of (2n+1)/(2^(2n+1)-1).

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 54, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 144, 0, 0, 0, 150

Offset

0,11

Comments

Explains the similarity of the sequences A009843 and A160143. (Cf. also the pair A036279 and A156769.) The first nonzero values occur at n = 10, 31, 52 and 73.

Previous name was: Odd numbers 2n+1 minus the numerators of (2n+1)/(4^(2n+1)-2^(2n+1)), (A005408 - A160144). - Altug Alkan, Apr 21 2018

Links

Altug Alkan, Table of n, a(n) for n = 0..10000

Formula

a(n) = A005408(n) - A160144(n).

Maple

seq((2*n+1)-numer((2*n+1)/(4^(2*n+1)-2^(2*n+1))), n=0..77);
seq((2*n+1)-numer((2*n+1)/(2^(2*n+1)-1)), n=0..100); # Altug Alkan, Apr 21 2018

Mathematica

Array[# - Numerator[#/(2^# - 1)] &[2 # + 1] &, 78, 0] (* Michael De Vlieger, Apr 21 2018 *)

Prog

(PARI) forstep(k=1, 1e2, 2, print1(k - numerator(k/(2^k-1)), ", ")); \\ Altug Alkan, Apr 21 2018

Crossrefs

Cf. A005408, A009843, A160143, A160144.

Sequence in context: A246649 A210709 A187567 * A072839 A156400 A008424

Adjacent sequences: A160142 A160143 A160144 * A160146 A160147 A160148

Keyword

nonn

Author

Peter Luschny, May 03 2009

Extensions

Name simplified by Altug Alkan, Apr 21 2018

Status

approved