A212464 a(n) = floor( Pi^(n/3) ).
1, 2, 3, 4, 6, 9, 14, 21, 31, 45, 66, 97, 142, 208, 306, 448, 656, 961, 1408, 2062, 3020, 4423, 6478, 9488, 13896, 20353, 29809, 43658, 63941, 93648, 137156, 200877, 294204, 430888, 631076, 924269, 1353677
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Derive
PROG(y := [], n := 60, LOOP(IF(n = 0, RETURN y), y := ADJOIN(floor((pi)^(n/3)), y), n := n - 1))
-
Maple
A212464:=n->floor(Pi^(n/3)): seq(A212464(n), n=1..60); # Wesley Ivan Hurt, Feb 09 2017
-
Mathematica
a[n_]:= Floor[((Pi)^(n/3))]; Table[a[n], {n, 1, 60}] (* Vincenzo Librandi, Feb 14 2013 *) -
PARI
a(n) = floor(Pi^(n/3)); \\ Michel Marcus, Jan 11 2016