A212463 a(n) = ceiling( Pi^(n/3) ).
2, 3, 4, 5, 7, 10, 15, 22, 32, 46, 67, 98, 143, 209, 307, 449, 657, 962, 1409, 2063, 3021, 4424, 6479, 9489, 13897, 20354, 29810, 43659, 63942, 93649, 137157, 200878, 294205, 430889, 631077, 924270, 1353678
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(CEILING((pi)^(n/3)), y), n := n - 1))
-
Mathematica
a[n_]:= Ceiling[((Pi)^(n/3))]; Table[a[n], {n, 1, 50}] (* Vincenzo Librandi, Feb 14 2013 *) -
PARI
a(n) = ceil(Pi^(n/3)); \\ Michel Marcus, Jan 11 2016