A212464 - OEIS

%I #25 Jan 20 2024 11:08:55

%S 1,2,3,4,6,9,14,21,31,45,66,97,142,208,306,448,656,961,1408,2062,3020,

%T 4423,6478,9488,13896,20353,29809,43658,63941,93648,137156,200877,

%U 294204,430888,631076,924269,1353677

%N a(n) = floor( Pi^(n/3) ).

%H Vincenzo Librandi, <a href="/A212464/b212464.txt">Table of n, a(n) for n = 1..1000</a>

%p A212464:=n->floor(Pi^(n/3)): seq(A212464(n), n=1..60); # _Wesley Ivan Hurt_, Feb 09 2017

%t a[n_]:= Floor[((Pi)^(n/3))]; Table[a[n], {n, 1, 60}] (* _Vincenzo Librandi_, Feb 14 2013 *)

%o (Derive) PROG(y := [], n := 60, LOOP(IF(n = 0, RETURN y), y := ADJOIN(floor((pi)^(n/3)), y), n := n - 1))

%o (PARI) a(n) = floor(Pi^(n/3)); \\ _Michel Marcus_, Jan 11 2016

%Y Cf. A102475, A102477, A212463.

%K easy,nonn

%O 1,2

%A _Mohammad K. Azarian_, Jul 02 2012