login
A191694
a(n) = floor((3^n - 2^n)/n).
1
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 11 2011
STATUS
approved