|
%I #16 Sep 08 2022 08:45:57
%S 3,3,5,11,27,66,168,437,1157,3107,8435,23106,63772,177147,494789,
%T 1388603,3913338,11069156,31412472,89404728,255130565,729792083,
%U 2092070640,6009139074,17291604274,49840506437,143879197829,415941680999,1204041708155,3489680204994
%N a(n) = floor((3^n)/(2*n - 1)).
%H Vincenzo Librandi, <a href="/A191632/b191632.txt">Table of n, a(n) for n = 1..1000</a>
%t f[n_] := Floor[(3^n)/(2 n - 1)]
%t Table[f[n], {n, 1, 40}] (* A191632 *)
%o (Magma) [Floor((3^n)/(2*n - 1)): n in [1..30]]; // _Vincenzo Librandi_, Sep 12 2011
%o (Maxima) A191632(n):=floor((3^n)/(2*n-1))$ makelist(A191632(n),n,1,30); /* _Martin Ettl_, Oct 25 2012 */
%Y Cf. A191631.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jun 09 2011
|
