This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Floor[Pi^(Range[0,40]/2)] (* Harvey P. Dale, Aug 27 2012 *)
PROG(y := [], n := 60, LOOP(IF(n = 0, RETURN y), y := ADJOIN(CEILING((pi)^(n/3)), y), n := n - 1))
a[n_]:= Ceiling[((Pi)^(n/3))]; Table[a[n], {n, 1, 50}] (* Vincenzo Librandi, Feb 14 2013 *)
a(n) = ceil(Pi^(n/3)); \\ Michel Marcus, Jan 11 2016
PROG(y := [], n := 60, LOOP(IF(n = 0, RETURN y), y := ADJOIN(floor((pi)^(n/3)), y), n := n - 1))
A212464:=n->floor(Pi^(n/3)): seq(A212464(n), n=1..60); # Wesley Ivan Hurt, Feb 09 2017
a[n_]:= Floor[((Pi)^(n/3))]; Table[a[n], {n, 1, 60}] (* Vincenzo Librandi, Feb 14 2013 *)
a(n) = floor(Pi^(n/3)); \\ Michel Marcus, Jan 11 2016
a(4) = 4: in the interval [Pi^3, Pi^4) = [31.006..., 97.409...) = are four perfect squares: 36, 49, 64, 81.
a:= n-> (f-> f(n)-f(n-1))(i-> ceil(Pi^(i/2))): seq(a(n), n=0..42);
Comments