cp's OEIS Frontend

A186038 a(n) = log_3(A002426(n)/numerator(A002426(n)/3^n)).

%I A186038 #14 Feb 28 2017 22:35:26
%S A186038 0,0,1,0,0,1,1,1,3,0,0,1,0,0,1,2,2,4,1,1,2,1,1,2,2,2,5,0,0,1,0,0,1,1,
%T A186038 1,3,0,0,1,0,0,1,5,3,4,2,2,3,2,2,3,3,3,6,1,1,2,1,1,2,2,2,4,1,1,2,1,1,
%U A186038 2,3,3,6,2,2,3,2,2,3,3,3,7
%N A186038 a(n) = log_3(A002426(n)/numerator(A002426(n)/3^n)).
%C A186038 (-1)^a(n) = A186039(n).
%H A186038 G. C. Greubel, <a href="/A186038/b186038.txt">Table of n, a(n) for n = 0..1000</a>
%p A186038 A186038 := proc(n)
%p A186038     local m,ml ;
%p A186038     m := A002426(n) ;
%p A186038     ml := %/3^n ;
%p A186038     m/numer(ml) ;
%p A186038     ilog[3](%) ;
%p A186038 end proc: # _R. J. Mathar_, Feb 13 2015
%t A186038 b[n_] := If[n < 0, 0, 3^n Hypergeometric2F1[1/2, -n, 1, 4/3]];
%t A186038 a[n_] := Log[3, b[n]/Numerator[b[n]/3^n]]; Table[a[n], {n,0,50}] (* _G. C. Greubel_, Feb 27 2017 *)
%K A186038 nonn,easy
%O A186038 0,9
%A A186038 _Paul Barry_, Feb 11 2011