A134890 -id:A134890 - cp's OEIS frontend

A134896 Ceiling(n*exp(cot n)).

2, 2, 1, 10, 4, 1, 23, 7, 1, 47, 11, 3, 113, 17, 5, 446, 23, 8, 13922, 32, 11, 254720877109456038162413915231807280097784507656381, 44, 16, 1, 61, 20, 1, 90, 26, 4, 146, 33, 7, 289, 41, 12, 954, 52, 17, 20703, 65, 23, 149056697284764410227539532, 84, 29, 1, 111, 36, 2

Offset: 1

Mohammad K. Azarian, Nov 14 2007

nonn

Searching up to 200000000, records at 1, 4, 7, 10, 13, 16, 19, 22, 355, 104348, 312689, 1146408, 5419351, 85563208, 165707065, .... - Robert G. Wilson v, Feb 10 2013

Vincenzo Librandi, Table of n, a(n) for n = 1..299

Cf. A134890, A134891, A134892, A134893, A134894, A134895.

Table[Ceiling[n Exp[Cot[n]]], {n, 50}] (* Vincenzo Librandi, Feb 08 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

Mohammad K. Azarian, Nov 14 2007

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

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

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

Offset corrected by Mohammad K. Azarian, Nov 19 2008

a(11) corrected by Vincenzo Librandi, Feb 18 2013

A134897 Floor(n*exp(cot n)).

Original entry on oeis.org

1, 1, 0, 9, 3, 0, 22, 6, 0, 46, 10, 2, 112, 16, 4, 445, 22, 7, 13921, 31, 10, 254720877109456038162413915231807280097784507656380, 43, 15, 0, 60, 19, 0, 89, 25, 3, 145, 32, 6, 288, 40, 11, 953, 51, 16, 20702, 64, 22

Offset: 1

Mohammad K. Azarian, Nov 14 2007

nonn

Vincenzo Librandi, Table of n, a(n) for n = 1..299

Cf. A134890; A134891; A134892; A134893; A134894; A134895; A134896.

[Floor(n*Exp(Cot(n))): n in [1..50]]; // Vincenzo Librandi, Feb 08 2013

Table[Floor[n Exp[Cot[n]]], {n, 50}] (* Vincenzo Librandi, Feb 08 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

Mohammad K. Azarian, Nov 14 2007

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

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

[Ceiling(n*Exp(-Cot(n))): n in [1..60]]; // Vincenzo Librandi, Feb 18 2013

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

A134898 Ceiling(n*exp(sec n)).

Original entry on oeis.org

7, 1, 2, 1, 170, 18, 27, 1, 4, 4, 1484429287810386706180357941514616918998247619752106278380016249467303567341589522908388755572386424, 40, 40, 21002, 5, 6, 1, 82, 53, 232, 4, 9, 4, 254, 69, 122, 1, 10, 8, 19617, 93, 107, 1, 11, 12, 1, 137, 109, 1659, 9

Offset: 1

Mohammad K. Azarian, Nov 14 2007

nonn

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Cf. A134890, A134891, A134892, A134893, A134894, A134895, A134896, A134897.

Table[Ceiling[n Exp[Sec[n]]], {n, 30}] (* Vincenzo Librandi, Feb 08 2013 *)

Corrected by Vincenzo Librandi, Feb 08 2013

A134899 Floor(n*exp(sec(n))).

Original entry on oeis.org

6, 0, 1, 0, 169, 17, 26, 0, 3, 3, 1484429287810386706180357941514616918998247619752106278380016249467303567341589522908388755572386423, 39, 39, 21001, 4, 5, 0, 81, 52, 231, 3, 8, 3, 253, 68, 121, 0, 9, 7, 19616, 92, 106, 0, 10, 11, 0, 136, 108, 1658, 8, 14

Offset: 1

Mohammad K. Azarian, Nov 14 2007

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Cf. A134890, A134891, A134892, A134893, A134894, A134895, A134896, A134897, A134898.

Table[Floor[n Exp[Sec[n]]], {n, 60}] (* Harvey P. Dale, Jan 15 2013 *)

Corrected and extended by Harvey P. Dale, Jan 15 2013

A134900 a(n) = ceiling(n*exp(csc(n))).

Original entry on oeis.org

4, 7, 3586, 2, 2, 1, 33, 22, 102, 2, 5, 2, 141, 39, 70, 1, 7, 5, 15012, 60, 70, 1, 8, 8, 1, 97, 77, 1123, 7, 11, 3, 197, 90, 226, 4, 14, 8, 1110, 111, 154, 1, 15, 13, 150381952598940947400633734, 146, 140, 153664, 14, 18, 2, 227

Offset: 1

Mohammad K. Azarian, Nov 14 2007

Vincenzo Librandi, Table of n, a(n) for n = 1..709 (shortened by _N. J. A. Sloane_, Jan 13 2019)

Cf. A134890, A134891, A134892, A134893, A134894, A134895, A134896, A134897, A134898, A134899.

[Ceiling(n*Exp(Cosec(n))): n in [1..60]]; // Vincenzo Librandi, Feb 18 2013

Table[Ceiling[n Exp[Csc[n]]], {n, 60}] (* Vincenzo Librandi, Feb 18 2013 *)

A134881 Decimal expansion of Sum_{k>=1} 1/(e^k)^(e^k).

Original entry on oeis.org

0, 6, 5, 9, 8, 8, 4, 1, 7, 7, 4, 3, 3, 4, 3, 7, 9, 1, 7, 5, 6, 5, 6, 2, 3, 8, 6, 7, 2, 4, 1, 0, 7, 7, 9, 7, 4, 3, 8, 1, 4, 4, 4, 3, 9, 3, 4, 1, 2, 1, 3, 1, 0, 2, 6, 2, 8, 0, 5, 4, 3, 6, 6, 5, 5, 9, 9, 9, 8, 5, 2, 0, 7, 6, 6, 0, 7, 1, 5, 7, 1, 2, 7, 8, 5, 1, 1, 2, 0, 0, 8, 1, 9, 4, 3, 6, 0, 7, 7, 0, 2

Offset: 0

Artur Jasinski, Nov 14 2007

			0.06598841774334379175656238672410779743814443934121...

Cf. A073009, A100085, A134877, A134878, A134879, A134890.

RealDigits[N[Sum[1/(E^n)^(E^n), {n, 1, 20}], 200]][[1]] (* first two zeros removed *)

A134901 a(n) = floor(n*exp(csc(n))).

Original entry on oeis.org

3, 6, 3585, 1, 1, 0, 32, 21, 101, 1, 4, 1, 140, 38, 69, 0, 6, 4, 15011, 59, 69, 0, 7, 7, 0, 96, 76, 1122, 6, 10, 2, 196, 89, 225, 3, 13, 7, 1109, 110, 153, 0, 14, 12, 150381952598940947400633733, 145, 139, 153663, 13, 17, 1, 226

Offset: 1

Mohammad K. Azarian, Nov 14 2007

Vincenzo Librandi, Table of n, a(n) for n = 1..709 (shortened by _N. J. A. Sloane_, Jan 13 2019)

Cf. A134890; A134891; A134892; A134893; A134894; A134895; A134896; A134897; A134898; A134899; A134900.

[Floor(n*Exp(Cosec(n))): n in [1..60]]; // Vincenzo Librandi, Feb 18 2013

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

A138384 Reverse groups of five Fibonacci numbers.

Original entry on oeis.org

3, 2, 1, 1, 0, 34, 21, 13, 8, 5, 377, 233, 144, 89, 55, 4181, 2584, 1597, 987, 610, 46368, 28657, 17711, 10946, 6765, 514229, 317811, 196418, 121393, 75025, 5702887, 3524578, 2178309, 1346269, 832040, 63245986, 39088169, 24157817, 14930352, 9227465, 701408733

Offset: 0

Paul Curtz, May 08 2008

G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,11,0,0,0,0,1).

Cf. A102312 (and A049666), A099100, A134889, A134890, A134891, A000045.

With[{nn=10},Flatten[Reverse/@Partition[Fibonacci[Range[0,5*nn-1]],5]]] (* or *) LinearRecurrence[{0,0,0,0,11,0,0,0,0,1},{3,2,1,1,0,34,21,13,8,5},50] (* Harvey P. Dale, Jan 20 2015 *)

a(n) = 11*a(n-5) + a(n-10).

G.f.: (5*x^9 - 3*x^8 + 2*x^7 - x^6 + x^5 + x^3 + x^2 + 2*x + 3)/(-x^10 - 11*x^5 + 1). - Alexander R. Povolotsky, May 08 2008

Extended beyond a(24) by R. J. Mathar, Nov 30 2008

cp's OEIS Frontend

A134896 Ceiling(n*exp(cot n)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A134897 Floor(n*exp(cot n)).

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

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

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

A134898 Ceiling(n*exp(sec n)).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A134899 Floor(n*exp(sec(n))).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A134900 a(n) = ceiling(n*exp(csc(n))).

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

A134881 Decimal expansion of Sum_{k>=1} 1/(e^k)^(e^k).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A134901 a(n) = floor(n*exp(csc(n))).

Views

Author

Keywords

Links

Crossrefs

Programs

Magma