A186037 a(n) = log_2((1+A002426(n))/numerator((1+A002426(n))/2^n)).

0, 1, 2, 3, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 3, 2, 2, 1, 1, 1, 1, 3, 2, 1, 1, 3, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 3, 2, 1, 1, 2, 4, 3, 3, 1, 1, 1, 1, 3, 2, 3, 3, 1, 1, 2, 2, 1, 1, 1, 1, 2, 3, 2, 2, 1, 1, 1, 1, 3

Offset: 0

Author

Paul Barry, Feb 11 2011

Keywords

• nonn
• easy

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1000

Programs

Mathematica

b[n_] := If[n < 0, 0, 3^n Hypergeometric2F1[1/2, -n, 1, 4/3]];
a[n_] := Log[2, (1 + b[n])/Numerator[(1 + b[n])/2^n]]; Table[a[n], {n, 0, 50}] (* G. C. Greubel, Feb 27 2017 *)