%I A067089
%S A067089 2,2,2,2,2,185,18461,1842626,183987603,1837682236,1999303871,
%T A067089 2000827643,2000777468,2000722020,2000673854,2000631711,2000594530,
%U A067089 2000561482,2000531914,2000505305,2000481231,2000459347,2000439367
%N A067089 Floor[X/Y] where X = concatenation of (2n), (2n-1), ... down to n+1 and 
               Y = concatenation of n, n-1, n-2, ... down to 1.
%e A067089 a(6)= floor [ 121110987/654321] = [185.094146451053840546153951959359]=185.
%t A067089 f[n_] := (k = 1; x = y = "0"; While[k < n + 1, x = StringJoin[x, ToString[2n 
               - k + 1]]; y = StringJoin[ToString[2k - 1], y]; k++ ]; Return[ Floor[10* 
               ToExpression[x] / ToExpression[y]]] ); Table[ f[n], {n, 1, 25} ]
%Y A067089 Cf. A067088.
%Y A067089 Sequence in context: A029665 A056993 A057331 this_sequence A090872 A063473 
               A096859
%Y A067089 Adjacent sequences: A067086 A067087 A067088 this_sequence A067090 A067091 
               A067092
%K A067089 easy,base,nonn
%O A067089 0,1
%A A067089 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 07 2002
%E A067089 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 09 2002