OFFSET
0,1
LINKS
EXAMPLE
... Here is Maple's computation of the first four terms of the sequence a:
....C2 := 2
....cf := [2]
....a := [2]
..........27
....C2 := --
..........10
....cf := [2, 1, 2, 3]
....a := [2, 3]
..........271
....C2 := ---
..........100
....cf := [2, 1, 2, 2, 4, 3]
....a := [2, 3, 4]
..........1359
....C2 := ----
..........500
....cf := [2, 1, 2, 1, 1, 4, 1, 12]
....a := [2, 3, 4, 12]
MAPLE
with(numtheory); Digits:=200:
C1 := exp(1.0);
for n from 1 to 100 do
C2:= floor(C1*10^(n-1))/10^(n-1);
cf := convert(evalf(C2), confrac):
a := [op(a), max(cf)];
od:
a; # N. J. A. Sloane, Jun 19 2024
MATHEMATICA
A081837[n_] := Max[ContinuedFraction[Floor[E*10^n]/10^n]];
Array[A081837, 100, 0] (* Paolo Xausa, Jun 21 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Benoit Cloitre, Apr 11 2003
EXTENSIONS
Definition, initial term, and offset clarified by N. J. A. Sloane, Jun 19 2024 following a suggestion from Harvey P. Dale.
STATUS
approved