|
| |
|
|
A191629
|
|
[(2^n)/(3n-1)], where [ ]=floor.
|
|
3
|
|
|
|
1, 0, 1, 1, 2, 3, 6, 11, 19, 35, 64, 117, 215, 399, 744, 1394, 2621, 4946, 9362, 17772, 33825, 64527, 123361, 236298, 453438, 871543, 1677721, 3234162, 6242685, 12064514, 23342213, 45210182, 87652393, 170097714, 330382099, 642238100, 1249445031, 2432547849
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,5
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 1..600
|
|
|
MATHEMATICA
|
f[n_] := Floor[(2^n)/(3 n - 1)]
Table[f[n], {n, 1, 40}] (* A191629 *)
|
|
|
PROG
|
(PARI) a(n)=2^n\(3*n-1) \\ Charles R Greathouse IV, Jun 17, 2011
(Maxima) A191629(n):=floor( 2^n/(3*n-1) )$ makelist(A191629(n), n, 1, 30); /*Martin Ettl, Oct 25 2012*/
|
|
|
CROSSREFS
|
Cf. A191627, A191628.
Sequence in context: A024971 A038084 A018169 * A131269 A047081 A090167
Adjacent sequences: A191626 A191627 A191628 * A191630 A191631 A191632
|
|
|
KEYWORD
|
nonn,less,easy,changed
|
|
|
AUTHOR
|
Clark Kimberling, Jun 09 2011
|
|
|
STATUS
|
approved
|
| |
|
|
