OFFSET
1,3
MATHEMATICA
f[n_] := Floor[(1-E^n)/(1+E*n)]
Table[f[n], {n, 1, 40}] (* A191692 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 11 2011
STATUS
approved