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

Author

Amarnath Murthy, Jan 07 2002

Keywords

• easy
• nonn
• base

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

Examples

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

Crossrefs

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

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

Programs

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 *)

Extensions

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