A024573 -id:A024573 - cp's OEIS frontend

A182219 Where A024573 becomes a record.

1, 2, 3, 7, 39, 110, 181, 252, 323, 394, 465, 1001, 9545, 27634, 45723, 63812, 81901, 99990, 118079, 136168, 154257, 172346, 190435, 398959, 5394991, 15786014, 26177037, 36568060, 46959083, 57350106, 67741129, 78132152, 88523175, 98914198, 109305221, 119696244

Offset: 1

Robert G. Wilson v, Apr 19 2012

Cf. A024573.

f[n_] := Floor[1/FractionalPart[n*E]]; k = 1; mx = 0; lst = {}; While[k < 10^10/3, a = f@ k; If[a > mx, AppendTo[lst, k]; Print[{k, a}]]; k++]; lst

A101262 Records in the sequence A024573 defined by [1/{n*e}], {x} := x - [x].

Original entry on oeis.org

1, 2, 6, 35, 76, 90, 110, 142, 198, 328, 952, 9067, 18996, 20991, 23456, 26575, 30652, 36205, 44217, 56781, 79321, 131533, 384870, 5202154, 10762714

Offset: 1

Carlos Alves, Jan 23 2005

nonn

Cf. A024573.

lst = {}; a = 0; Do[ b = Floor[1/(n E - Floor[n E])]; If[b > a, AppendTo[ lst, b]; a = b; Print[{n, b}]], {n, 10^7}]; lst (* Robert G. Wilson v, Jan 24 2005 *)

a(20)-a(26) from Robert G. Wilson v, Jan 24 2005

A024574 a(n) = Sum_{k=1..n} [ 1/{k*e} ] where {x} := x - [ x ].

Original entry on oeis.org

1, 3, 9, 10, 11, 14, 49, 50, 52, 57, 58, 59, 61, 78, 79, 81, 85, 86, 87, 89, 100, 101, 102, 106, 107, 108, 110, 118, 119, 120, 123, 124, 125, 127, 134, 135, 136, 139, 215, 216, 218, 223, 224, 225, 228, 252, 253, 255, 260, 261, 262, 264, 278, 279, 280, 284, 285, 286, 288, 298

Offset: 1

Clark Kimberling

nonn

Clark Kimberling, Table of n, a(n) for n = 1..1000

Cf. A024575. Partial sums of A024573.

Table[Sum[Floor[1/FractionalPart[k*E]], {k, n}], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)

A024572 a(n) = [ n/{n*e} ], {x} := x - [ x ].

Original entry on oeis.org

1, 4, 19, 4, 8, 19, 250, 10, 19, 54, 12, 19, 38, 250, 19, 32, 80, 19, 29, 54, 250, 27, 44, 100, 26, 38, 68, 250, 34, 54, 116, 32, 46, 80, 250, 41, 64, 128, 3002, 54, 91, 250, 48, 72, 139, 1122, 61, 100, 250, 54, 80, 148, 768, 68, 108, 250, 60, 87, 155, 619, 74, 116, 250, 65, 94, 162, 536

Offset: 1

Clark Kimberling

nonn

Clark Kimberling, Table of n, a(n) for n = 1..1000

Cf. A024573.

Table[Floor[1/FractionalPart[n*E]], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)

cp's OEIS Frontend

A182219 Where A024573 becomes a record.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

A101262 Records in the sequence A024573 defined by [1/{n*e}], {x} := x - [x].

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Extensions

A024574 a(n) = Sum_{k=1..n} [ 1/{k*e} ] where {x} := x - [ x ].

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A024572 a(n) = [ n/{n*e} ], {x} := x - [ x ].

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica