|
%I #22 Jan 19 2024 20:15:37
%S 2,3,4,5,7,10,15,22,32,46,67,98,143,209,307,449,657,962,1409,2063,
%T 3021,4424,6479,9489,13897,20354,29810,43659,63942,93649,137157,
%U 200878,294205,430889,631077,924270,1353678
%N a(n) = ceiling( Pi^(n/3) ).
%H Vincenzo Librandi, <a href="/A212463/b212463.txt">Table of n, a(n) for n = 1..1000</a>
%t a[n_]:= Ceiling[((Pi)^(n/3))]; Table[a[n], {n, 1, 50}] (* _Vincenzo Librandi_, Feb 14 2013 *)
%o (Derive) PROG(y := [], n := 60, LOOP(IF(n = 0, RETURN y), y := ADJOIN(CEILING((pi)^(n/3)), y), n := n - 1))
%o (PARI) a(n) = ceil(Pi^(n/3)); \\ _Michel Marcus_, Jan 11 2016
%Y Cf. A102475, A102477, A212464.
%K easy,nonn
%O 1,1
%A _Mohammad K. Azarian_, Jul 02 2012
|
