A191694 a(n) = floor((3^n - 2^n)/n).

1, 2, 6, 16, 42, 110, 294, 788, 2130, 5802, 15918, 43945, 122010, 340470, 954409, 2686324, 7588770, 21508796, 61144062, 174286791, 498012192, 1426221150, 4092816966, 11767198302, 33890202200, 97761489210, 282424565454, 817018714982, 2366546223930

Offset

1,2

Links

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

Mathematica

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

Prog

(Magma) [Floor((3^n-2^n)/n): n in [1..30]]; // Vincenzo Librandi, Sep 12 2011

Crossrefs

Sequence in context: A111282 A358464 A115730 * A224232 A217661 A244399

Adjacent sequences: A191691 A191692 A191693 * A191695 A191696 A191697

Keyword

nonn

Author

Clark Kimberling, Jun 11 2011

Status

approved