A214077 a(n) = floor(e^(n/3)).

1, 1, 2, 3, 5, 7, 10, 14, 20, 28, 39, 54, 76, 106, 148, 207, 289, 403, 563, 785, 1096, 1530, 2135, 2980, 4160, 5806, 8103, 11308, 15782, 22026, 30740, 42901, 59874, 83561, 116618, 162754, 227142, 317003, 442413, 617437

Offset: 1

Author

Mohammad K. Azarian, Jul 02 2012

Keywords

• easy
• nonn

Links

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

Crossrefs

Cf. A005181, A005182, A214076.

Programs

Derive

PROG(y := [], n := 60, LOOP(IF(n = 0, RETURN y), y := ADJOIN(FLOOR(ê^(n/3)), y), n := n - 1))

Magma

[Floor(Exp(n)^(1/3)): n in [1..50]]; // Vincenzo Librandi, Feb 13 2013

Maple

A214077:=n->floor(exp(n/3)): seq(A214077(n), n=1..60); # Wesley Ivan Hurt, Jan 11 2016

Mathematica

Floor[E^(Range[50]/3)] (* Vincenzo Librandi, Feb 13 2013 *)

PARI

a(n) = floor(exp(n/3)); \\ Michel Marcus, Jan 11 2016