OFFSET
1,1
EXAMPLE
a(4) = floor[9111315/1357] = floor[6714.30729550478997789240972733972] = 6714.
MATHEMATICA
f[n_] := (k = 1; x = y = "0"; While[k < n + 1, x = StringJoin[x, ToString[2n + 2k -1]]; y = StringJoin[y, ToString[2k - 1]]; k++ ]; Return[ Floor[ ToExpression[x] / ToExpression[y]]] ); Table[ f[n], {n, 1, 32} ]
CROSSREFS
KEYWORD
easy,base,nonn
AUTHOR
Amarnath Murthy, Jan 07 2002
EXTENSIONS
More terms from Robert G. Wilson v, Jan 09 2002
STATUS
approved