OFFSET
1,1
COMMENTS
Complement of A247916.
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
$RecursionLimit = Infinity; $MaxExtraPrecision = Infinity;
z = 500; u[1] = 0; u[2] = 1; u[n_] := u[n] = u[n - 1] + u[n - 2]/(n - 2);
f[n_] := f[n] = Select[Range[z], Abs[(# + 1)/u[# + 1] - E] < n^-n &, 1];
u = Flatten[Table[f[n], {n, 1, z}]] (* A247914 *)
w = Differences[u]
f1 = Flatten[Position[w, 1]] (* A247915 *)
f2 = Flatten[Position[w, 2]] (* A247916 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Sep 27 2014
STATUS
approved