|
%I #30 Jan 20 2024 11:29:06
%S 2,2,3,4,6,8,11,15,21,29,40,55,77,107,149,208,290,404,564,786,1097,
%T 1531,2136,2981,4161,5807,8104,11309,15783,22027,30741,42902,59875,
%U 83562,116619,162755,227143,317004,442414,617438
%N a(n) = ceiling(e^(n/3)).
%H Vincenzo Librandi, <a href="/A214076/b214076.txt">Table of n, a(n) for n = 1..1000</a>
%p A214076:=n->ceil(exp(n/3)): seq(A214076(n), n=1..60); # _Wesley Ivan Hurt_, Jan 11 2016
%t Ceiling[E^(Range[40]/3)] (* _Harvey P. Dale_, Aug 22 2012 *)
%o (Derive) PROG(y := [], n := 60, LOOP(IF(n = 0, RETURN y), y := ADJOIN(CEILING(ê^(n/3)), y), n := n - 1))
%o (Magma) [Ceiling(Exp(n)^(1/3)): n in [1..50]]; // _Vincenzo Librandi_, Feb 13 2013
%o (PARI) a(n) = ceil(exp(n/3)); \\ _Michel Marcus_, Jan 11 2016
%Y Cf. A005181, A005182, A214077.
%K easy,nonn
%O 1,1
%A _Mohammad K. Azarian_, Jul 02 2012
|
