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-8 of 8 results.

A134906 a(n) = ceiling(n*exp(-tan(n))).

Original entry on oeis.org

1, 18, 4, 2, 147, 9, 3, 7181, 15, 6, 1481148085628412373142705746959543003289563510386989143402672337886302490562710486232930994662688988, 23, 9, 1, 36, 12, 1, 57, 17, 3, 97, 22, 5, 203, 29, 8
Offset: 1

Views

Author

Mohammad K. Azarian, Nov 14 2007

Keywords

Links

Crossrefs

Cf. A134890, A134891, A134892, A134902, A134903, A134904, A134905.

Programs

  • Mathematica
    Table[Ceiling[n Exp[-Tan[n]]], {n, 30}] (* Vincenzo Librandi, Feb 18 2013 *)

Extensions

Offset corrected by Mohammad K. Azarian, Nov 19 2008
a(11) corrected by Vincenzo Librandi, Feb 18 2013

A134907 a(n) = floor(n*exp(-tan(n))).

Original entry on oeis.org

0, 17, 3, 1, 146, 8, 2, 7180, 14, 5, 1481148085628412373142705746959543003289563510386989143402672337886302490562710486232930994662688987, 22, 8, 0, 35, 11, 0, 56, 16, 2, 96, 21, 4, 202, 28, 7
Offset: 1

Views

Author

Mohammad K. Azarian, Nov 14 2007

Keywords

Links

Crossrefs

Cf. A134890, A134891, A134892, A134902, A134903, A134904, A134905, A134906.

Programs

  • Mathematica
    Table[Floor[n Exp[-Tan[n]]], {n, 30}] (* Vincenzo Librandi, Feb 18 2013 *)

Extensions

Offset corrected by Mohammad K. Azarian, Nov 19 2008
a(11) corrected by Vincenzo Librandi, Feb 18 2013

A134908 Ceiling(n*exp(-cot(n))).

Original entry on oeis.org

1, 4, 3341, 2, 7, 187, 3, 10, 83, 3, 12, 58, 2, 13, 49, 1, 13, 44, 1, 13, 41, 1, 13, 39, 44714, 12, 37, 978, 10, 36, 299, 8, 34, 170, 5, 32, 122, 2, 30, 98, 1, 28, 84, 1, 25, 75, 144423, 21, 68, 1978, 17, 62, 539, 13, 57, 288, 8, 52
Offset: 1

Views

Author

Mohammad K. Azarian, Nov 14 2007

Keywords

Links

Crossrefs

Cf. A134890, A134891, A134892, A134902, A134903, A134904, A134905, A134906, A134907.

Programs

  • Magma
    [Ceiling(n*Exp(-Cot(n))): n in [1..60]]; // Vincenzo Librandi, Feb 18 2013
  • Mathematica
    Table[Ceiling[n Exp[-Cot[n]]], {n, 70}] (* Vincenzo Librandi, Feb 18 2013 *)

A134909 a(n) = floor(n*exp(-cot n)).

Original entry on oeis.org

0, 3, 3340, 1, 6, 186, 2, 9, 82, 2, 11, 57, 1, 12, 48, 0, 12, 43, 0, 12, 40, 0, 12, 38, 44713, 11, 36, 977, 9, 35, 298, 7, 33, 169, 4, 31, 121, 1, 29, 97, 0, 27, 83, 0, 24, 74, 144422, 20, 67, 1977, 16, 61, 538, 12, 56, 287, 7, 51
Offset: 1

Views

Author

Mohammad K. Azarian, Nov 14 2007

Keywords

Links

Crossrefs

Cf. A134892, A134902, A134903, A134904, A134905, A134906, A134907, A134908.

Programs

  • Magma
    [Floor(n*Exp(-Cot(n))): n in [1..60]]; // Vincenzo Librandi, Feb 18 2013
  • Mathematica
    Table[Floor[n * Exp[ - Cot[n]]], {n, 70}] (* Vincenzo Librandi, Feb 18 2013 *)

Extensions

Offset corrected by Mohammad K. Azarian, Nov 19 2008

A134910 Ceiling(n*exp(-sec(n))).

Original entry on oeis.org

1, 23, 9, 19, 1, 3, 2, 7726, 27, 33, 1, 4, 5, 1, 56, 46, 644, 4, 7, 2, 131, 60, 151, 3, 10, 6, 828, 80, 111, 1, 11, 10, 16959920772588043033920967018589280, 111, 106, 89165, 11, 14, 1, 180, 113
Offset: 1

Views

Author

Mohammad K. Azarian, Nov 14 2007

Keywords

Links

Crossrefs

Cf. A134892, A134902, A134903, A134904, A134905, A134906, A134907, A134908, A134909.

Programs

  • Mathematica
    Table[Ceiling[n Exp[-Sec[n]]], {n, 70}] (* Vincenzo Librandi, Feb 18 2013 *)

A134911 a(n) = floor(n*exp(-sec(n))).

Original entry on oeis.org

0, 22, 8, 18, 0, 2, 1, 7725, 26, 32, 0, 3, 4, 0, 55, 45, 643, 3, 6, 1, 130, 59, 150, 2, 9, 5, 827, 79, 110, 0, 10, 9, 16959920772588043033920967018589279, 110, 105, 89164, 10, 13, 0, 179, 112, 511, 7, 16, 6, 465, 128, 228, 1, 17, 13
Offset: 1

Views

Author

Mohammad K. Azarian, Nov 14 2007

Keywords

Links

Crossrefs

Cf. A134892, A134902, A134903, A134904, A134905, A134906, A134907, A134908, A134909, A134910.

Programs

  • Mathematica
    Table[Floor[n Exp[-Sec[n]]], {n, 70}] (* Vincenzo Librandi, Feb 18 2013 *)

Extensions

Offset corrected by Mohammad K. Azarian, Nov 19 2008

A134912 Ceiling(n*exp(-csc(n))).

Original entry on oeis.org

1, 1, 1, 15, 15, 216, 2, 3, 1, 63, 30, 78, 2, 6, 4, 516, 49, 69, 1, 7, 7, 255850704140146863509875030282995534910137033001934, 75, 73, 47787, 8, 10, 1, 131, 83, 369, 6, 13, 6, 362, 99, 176, 2, 14, 11, 22423, 126, 144, 1, 14, 16
Offset: 1

Views

Author

Mohammad K. Azarian, Nov 14 2007

Keywords

Comments

Note that a(355) has 14410 digits. - Giovanni Resta, Feb 18 2013

Links

Crossrefs

Cf. A134892, A134902, A134903, A134904, A134905, A134906, A134907, A134908, A134909, A134910, A134911.

Programs

  • Mathematica
    Table[Ceiling[n Exp[-Csc[n]]], {n, 70}] (* Vincenzo Librandi, Feb 18 2013 *)

A134913 a(n) = floor(n*exp(-csc(n))).

Original entry on oeis.org

0, 0, 0, 14, 14, 215, 1, 2, 0, 62, 29, 77, 1, 5, 3, 515, 48, 68, 0, 6, 6, 255850704140146863509875030282995534910137033001933, 74, 72, 47786, 7, 9, 0, 130, 82, 368, 5, 12, 5, 361, 98, 175, 1, 13, 10, 22422, 125, 143, 0, 13, 15
Offset: 1

Views

Author

Mohammad K. Azarian, Nov 14 2007

Keywords

Links

Crossrefs

Cf. A134892, A134902, A134903, A134904, A134905, A134906, A134907, A134908, A134909, A134910, A134911, A134912.

Programs

  • Mathematica
    Table[Floor[n Exp[-Csc[n]]], {n, 70}] (* Vincenzo Librandi, Feb 18 2013 *)

Extensions

Offset corrected by Mohammad K. Azarian, Nov 20 2008
Showing 1-8 of 8 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.