A191632 a(n) = floor((3^n)/(2*n - 1)).

3, 3, 5, 11, 27, 66, 168, 437, 1157, 3107, 8435, 23106, 63772, 177147, 494789, 1388603, 3913338, 11069156, 31412472, 89404728, 255130565, 729792083, 2092070640, 6009139074, 17291604274, 49840506437, 143879197829, 415941680999, 1204041708155, 3489680204994

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

f[n_] := Floor[(3^n)/(2 n - 1)]
Table[f[n], {n, 1, 40}]    (* A191632 *)

Prog

(Magma) [Floor((3^n)/(2*n - 1)): n in [1..30]]; // Vincenzo Librandi, Sep 12 2011
(Maxima) A191632(n):=floor((3^n)/(2*n-1))$ makelist(A191632(n), n, 1, 30); /* Martin Ettl, Oct 25 2012 */

Crossrefs

Cf. A191631.

Sequence in context: A299590 A250396 A201866 * A146918 A093306 A093309

Adjacent sequences: A191629 A191630 A191631 * A191633 A191634 A191635

Keyword

nonn

Author

Clark Kimberling, Jun 09 2011

Status

approved