A067096 - OEIS

%I #10 Dec 05 2013 19:55:07

%S 2,2,2,2,19,199,1999,19991,199916,199916,199916,199916,199916,199916,

%T 199916,199916,199916,199916,199916,199916,199916,199916,199916,

%U 199916,199916,199916,199916,199916,199916,199916,199916,199916,199916,199916

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

%C 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

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

%t 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} ]

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

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

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

%K easy,nonn,base

%O 1,1

%A _Amarnath Murthy_, Jan 07 2002

%E More terms from _Robert G. Wilson v_, Jan 09 2002