OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..2720
EXAMPLE
a(4)= floor[1513119/1357] =floor[1115.047162859248341930729550479] = 1115.
MAPLE
f:= proc(n) local k; floor(parse(cat(seq(2*k-1, k=2*n .. n+1, -1)))/parse(cat(seq(2*k-1, k=1..n)))) end proc:
map(f, [$1..50]); # Robert Israel, Nov 06 2024
MATHEMATICA
f[n_] := (k = 1; x = y = "0"; While[k < n + 1, x = StringJoin[ToString[2n + 2k - 1], x]; y = StringJoin[y, ToString[2k - 1]]; k++ ]; Return[ Floor[ ToExpression[x] / ToExpression[y]/10]] ); Table[ f[n], {n, 1, 32} ]
CROSSREFS
KEYWORD
AUTHOR
Amarnath Murthy, Jan 07 2002
EXTENSIONS
More terms from Robert G. Wilson v, Jan 09 2002
Definition corrected by Robert Israel, Nov 06 2024
STATUS
approved