A121279 Ceiling((Pi/e)^n).
1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 6, 7, 8, 9, 11, 12, 14, 16, 19, 21, 25, 28, 33, 38, 44, 50, 58, 67, 77, 89, 103, 119, 138, 159, 184, 212, 245, 283, 327, 378, 437, 505, 583, 674, 779, 900, 1041, 1203, 1390, 1606, 1856, 2145, 2479, 2865, 3311, 3827, 4422, 5111, 5907
Offset: 0
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Table[Ceiling[(Pi/E)^n], {n, 0, 70}] (* Vincenzo Librandi, Feb 23 2013 *)
Extensions
Changed offset from 1 to 0 by Vincenzo Librandi, Feb 23 2013