|
|
A067094
|
|
Floor[X/Y] where X = concatenation in decreasing order of (n+1)-st odd number through the 2n-th odd number and Y = concatenation in decreasing order of first n odd numbers.
|
|
9
|
|
|
3, 5, 8, 1115, 141185, 170938, 200692, 230447, 260202, 289956, 319711, 349465, 379220, 408974, 438729, 468483, 498238, 527993, 557747, 587502, 617256, 647011, 676765, 706520, 736274, 7592691, 788748988, 81823548335, 8477219785398
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(4)= floor[1513119/1357] =floor[1115.047162859248341930729550479] = 1115.
|
|
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
|
easy,nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|