cp's OEIS Frontend

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.

Showing 1-10 of 15 results. Next

A121905 a(n) = ceiling(e^(n*Pi)).

Original entry on oeis.org

1, 24, 536, 12392, 286752, 6635624, 153552936, 3553321281, 82226315586, 1902773895293, 44031505860633, 1018919543279305, 23578503968558227, 545622913077172101, 12626092124920479898, 292176517015939695008
Offset: 0

Views

Author

Mohammad K. Azarian, Sep 01 2006

Keywords

Crossrefs

Programs

  • Magma
    C := ComplexField(); [Ceiling(Exp(Pi(C)*n)): n in [0..50]]; // G. C. Greubel, Nov 06 2017
  • Mathematica
    Ceiling[E^(Pi Range[0, 20])] (* Vincenzo Librandi, Feb 21 2013 *)
  • PARI
    for(n=0,50, print1(ceil(exp(Pi*n)), ", ")) \\ G. C. Greubel, Nov 06 2017
    

Extensions

Offset changed to 0 by Georg Fischer, Sep 02 2022

A121915 a(n) = floor((Pi+e)^(n*Pi)).

Original entry on oeis.org

1, 258, 66801, 17265408, 4462406595, 1153350806021, 298094324981778, 77045272021641916, 19913072619720776032, 5146720243221262934093, 1330218081751512472685763, 343807329988307215923432746, 88860226586342124489251555256, 22966758356328845813340839281381
Offset: 0

Author

Mohammad K. Azarian, Sep 02 2006

Keywords

Programs

  • Magma
    C := ComplexField(); [Floor((Pi(C)+Exp(1))^(n*Pi(C))): n in [0..50]]; // G. C. Greubel, Nov 06 2017
  • Mathematica
    With[{c=\[Pi]+E}, Floor[c^(\[Pi] Range[0, 20])]]  (* Harvey P. Dale, Mar 20 2011 *)
  • PARI
    for(n=0,50, print1(floor((Pi+exp(1))^(n*Pi)), ", ")) \\ G. C. Greubel, Nov 06 2017
    

Extensions

Offset changed to 0 by Georg Fischer, Sep 02 2022

A121900 a(n) = ceiling((Pi - e)*sqrt(n)).

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5
Offset: 0

Author

Mohammad K. Azarian, Sep 01 2006

Keywords

Crossrefs

Programs

  • Magma
    C := ComplexField(); [Ceiling((Pi(C) - Exp(1))*Sqrt(n)): n in [0..50]]; // G. C. Greubel, Oct 28 2017
  • Mathematica
    Table[Ceiling[(Pi - E) Sqrt[n]], {n, 0, 110}] (* Vincenzo Librandi, Feb 21 2013 *)
  • PARI
    for(n=0,50, print1(ceil((Pi - exp(1))*sqrt(n)), ", ")) \\ G. C. Greubel, Oct 28 2017
    

Extensions

Offset corrected by Mohammad K. Azarian, Nov 20 2008
Offset changed to 0 by Georg Fischer, Sep 02 2022

A121904 a(n) = floor(Pi^(n*e)).

Original entry on oeis.org

1, 22, 504, 11328, 254433, 5714356, 128339632, 2882400037, 64736277048, 1453922256329, 32653869265129, 733378399940296, 16471061151498380, 369926160190271626, 8308229975861003525, 186595847388277259847, 4190785566084546949287, 94121513992523815815369
Offset: 0

Author

Mohammad K. Azarian, Sep 01 2006

Keywords

Crossrefs

Programs

  • Magma
    C := ComplexField(); [Floor(Pi(C)^(n*Exp(1))): n in [0..50]]; // G. C. Greubel, Nov 06 2017
  • Mathematica
    Floor[Pi^(E Range[0, 20])] (* Vincenzo Librandi, Feb 21 2013 *)
  • PARI
    for(n=0,50, print1(floor(Pi^(n*exp(1))), ", ")) \\ G. C. Greubel, Nov 06 2017
    

Extensions

Offset changed to 0 by Georg Fischer, Sep 02 2022

A121917 a(n) = ceiling((Pi+e)^(n*e)).

Original entry on oeis.org

1, 123, 14952, 1828145, 223535960, 27332807666, 3342112728282, 408656059975458, 49968325108097956, 6109865382293662598, 747082374864324679925, 91349324397617876090444, 11169717488538903806777418, 1365774619533204572560235118
Offset: 0

Author

Mohammad K. Azarian, Sep 02 2006

Keywords

Programs

  • Magma
    C := ComplexField(); [Ceiling((Pi(C)+Exp(1))^(n*Exp(1))): n in [0..50]]; // G. C. Greubel, Nov 06 2017
  • Mathematica
    Ceiling[(Pi + E)^(E (Range[0, 20]))] (* Vincenzo Librandi, Feb 21 2013 *)
  • PARI
    for(n=0,50, print1(ceil((Pi+exp(1))^(n*exp(1))), ", ")) \\ G. C. Greubel, Nov 06 2017
    

Extensions

Offset changed to 0 by Georg Fischer, Sep 02 2022

A121929 a(n) = ceiling(n*(e^Pi + Pi^e)).

Original entry on oeis.org

0, 46, 92, 137, 183, 228, 274, 320, 365, 411, 456, 502, 548, 593, 639, 684, 730, 776, 821, 867, 912, 958, 1004, 1049, 1095, 1140, 1186, 1232, 1277, 1323, 1368, 1414, 1460, 1505, 1551, 1596, 1642, 1688, 1733, 1779, 1824, 1870, 1916, 1961, 2007, 2052, 2098
Offset: 0

Author

Mohammad K. Azarian, Sep 02 2006

Keywords

Programs

  • Magma
    C := ComplexField(); [Ceiling(n*(Pi(C)^Exp(1) + Exp(1)^Pi(C))): n in [0..50]]; // G. C. Greubel, Nov 06 2017
  • Maple
    A121929:=n->ceil((n-1)*(exp(1)^Pi+Pi^exp(1))): seq(A121929(n), n=1..100); # Wesley Ivan Hurt, Jan 21 2017
  • Mathematica
    With[{a = E^Pi + Pi^E}, Ceiling[a Range[0, 80]]] (* Vincenzo Librandi, Feb 21 2013 *)
  • PARI
    for(n=0,50, print1(ceil(n*(Pi^exp(1)+exp(Pi))), ", ")) \\ G. C. Greubel, Nov 06 2017
    

Extensions

Offset corrected by Mohammad K. Azarian, Nov 20 2008
Offset changed to 0 by Georg Fischer, Sep 02 2022

A121930 a(n) = floor(n*(e^Pi - Pi^e)).

Original entry on oeis.org

0, 0, 1, 2, 2, 3, 4, 4, 5, 6, 6, 7, 8, 8, 9, 10, 10, 11, 12, 12, 13, 14, 14, 15, 16, 17, 17, 18, 19, 19, 20, 21, 21, 22, 23, 23, 24, 25, 25, 26, 27, 27, 28, 29, 29, 30, 31, 32, 32, 33, 34, 34, 35, 36, 36, 37, 38, 38, 39, 40, 40, 41, 42, 42, 43, 44, 44, 45, 46, 47, 47, 48, 49, 49
Offset: 0

Author

Mohammad K. Azarian, Sep 02 2006

Keywords

Comments

Beatty sequence of A063504. - R. J. Mathar, Aug 11 2012

Crossrefs

Programs

  • Magma
    C := ComplexField(); [Floor(n*(Exp(1)^Pi(C) - Pi(C)^Exp(1) )): n in [0..50]]; // G. C. Greubel, Nov 06 2017
  • Mathematica
    With[{c=E^Pi-Pi^E},Floor[c*Range[0,80]]] (* Harvey P. Dale, Jan 06 2012 *)
  • PARI
    for(n=0,50, print1(floor(n*(exp(Pi) - Pi^exp(1))), ", ")) \\ G. C. Greubel, Nov 06 2017
    

A121899 a(n) = ceiling((Pi + e)*sqrt(n)).

Original entry on oeis.org

0, 6, 9, 11, 12, 14, 15, 16, 17, 18, 19, 20, 21, 22, 22, 23, 24, 25, 25, 26, 27, 27, 28, 29, 29, 30, 30, 31, 32, 32, 33, 33, 34, 34, 35, 35, 36, 36, 37, 37, 38, 38, 38, 39, 39, 40, 40, 41, 41, 42, 42, 42, 43, 43, 44, 44, 44, 45, 45, 46, 46, 46, 47, 47, 47, 48, 48, 48, 49, 49
Offset: 0

Author

Mohammad K. Azarian, Sep 01 2006

Keywords

Crossrefs

Programs

  • Magma
    C := ComplexField(); [Ceiling((Exp(1) + Pi(C))*Sqrt(n)): n in [0..50]]; // G. C. Greubel, Oct 28 2017
  • Mathematica
    Table[Ceiling[(Pi + E) Sqrt[n]], {n, 0, 70}] (* Vincenzo Librandi, Feb 21 2013 *)
  • PARI
    for(n=0,50, print1(ceil((exp(1)+Pi)*sqrt(n)), ", ")) \\ G. C. Greubel, Oct 28 2017
    

Extensions

Offset corrected by Mohammad K. Azarian, Nov 20 2008
Offset changed to 0 by Georg Fischer, Sep 02 2022

A121901 a(n) = floor((Pi + e)*sqrt(n)).

Original entry on oeis.org

0, 5, 8, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 21, 22, 23, 24, 24, 25, 26, 26, 27, 28, 28, 29, 29, 30, 31, 31, 32, 32, 33, 33, 34, 34, 35, 35, 36, 36, 37, 37, 37, 38, 38, 39, 39, 40, 40, 41, 41, 41, 42, 42, 43, 43, 43, 44, 44, 45, 45, 45, 46, 46, 46, 47, 47, 47, 48, 48
Offset: 0

Author

Mohammad K. Azarian, Sep 01 2006

Keywords

Crossrefs

Programs

  • Magma
    C := ComplexField(); [Floor((Exp(1) + Pi(C))*Sqrt(n)): n in [0..50]]; // G. C. Greubel, Oct 28 2017
  • Mathematica
    Table[Floor[(Pi + E) Sqrt[n]], {n, 0, 70}] (* Vincenzo Librandi, Feb 21 2013 *)
  • PARI
    for(n=0,50, print1(floor((exp(1)+Pi)*sqrt(n)), ", ")) \\ G. C. Greubel, Oct 28 2017
    

Extensions

Offset corrected by Mohammad K. Azarian, Nov 20 2008
Offset changed to 0 by Georg Fischer, Sep 02 2022

A121902 a(n) = floor((Pi - e)*sqrt(n)).

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
Offset: 0

Author

Mohammad K. Azarian, Sep 01 2006

Keywords

Crossrefs

Programs

  • Magma
    C := ComplexField(); [Floor((Pi(C) - Exp(1))*Sqrt(n)): n in [0..50]]; // G. C. Greubel, Oct 28 2017
  • Mathematica
    Table[Floor[(Pi - E)*Sqrt[n]], {n, 0, 110}] (* Vincenzo Librandi, Feb 21 2013 *)
  • PARI
    for(n=0,50, print1(floor((Pi - exp(1))*sqrt(n)), ", ")) \\ G. C. Greubel, Oct 28 2017
    

Extensions

Offset corrected by Mohammad K. Azarian, Nov 20 2008
Offset changed to 0 by Georg Fischer, Sep 02 2022
Showing 1-10 of 15 results. Next