A067096 Floor[X/Y] where X = concatenation in increasing order of first n even numbers and Y = that of first n natural numbers.

2, 2, 2, 2, 19, 199, 1999, 19991, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916, 199916

Offset

1,1

Comments

Almost all terms appear only once. However, in the first 5000 terms, the term 2 appears 4 times in a row; the term 199916 appears 41 times in a row; the term 19991620000261183803815753482837892477715440187362570807 appears 401 times in a row; and a term with 556 digits (that begins with the same digits as the term that appears 401 times in a row) appears 4001 times in a row. Does this pattern continue? - Harvey P. Dale, Jul 04 2012

Links

Table of n, a(n) for n=1..34.

Example

a(10) = floor[ 2468101214161820/12345678910] = floor[199916.20000441271803658143252326] = 199916.

Mathematica

f[n_] := (k = 1; x = y = "0"; While[k < n + 1, x = StringJoin[x, ToString[2^k]]; y = StringJoin[y, ToString[k]]; k++ ]; Return[ Floor[ ToExpression[x] / ToExpression[y]]] ); Table[ f[n], {n, 1, 40} ]
ccat[n_, i_]:=FromDigits[Flatten[IntegerDigits/@Range[i, n, i]]]; Table[ Floor[ ccat[2m, 2]/ccat[m, 1]], {m, 40}] (* Harvey P. Dale, Jul 04 2012 *)

Crossrefs

Cf. A067088, A067089, A067090, A067091, A067092, A067093, A067094, A067095.

floor[A019520(n)/A019519(n)]

Sequence in context: A334509 A029643 A100687 * A259704 A249779 A167394

Adjacent sequences: A067093 A067094 A067095 * A067097 A067098 A067099

Keyword

easy,nonn,base

Author

Amarnath Murthy, Jan 07 2002

Extensions

More terms from Robert G. Wilson v, Jan 09 2002

Status

approved