A113697 - OEIS

%I #10 Nov 05 2016 09:16:08

%S 6,8,8,9,9,9,9,90,91,92,92,93,93,94,94,95,95,95,96,96,96,96,96,97,97,

%T 97,97,97,97,97,97,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,98,

%U 99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99,99

%N Floor[n concatenated with n+2 divided by n+1].

%e a(14) = 94 = floor[1416/15].

%p cat2 := proc(a,b) a*10^(max(1,ilog10(b)+1))+b ; end: A113697 := proc(n) floor(cat2(n,n+2)/(n+1)) ; end: seq(A113697(n),n=1..100) ; # _R. J. Mathar_, Feb 07 2008

%t c[r_, s_] := ToExpression[ToString[r] <> ToString[s]]; Table[Floor[c[n, n+2] / (n+1)], {n, 1, 50}] (* _Ryan Propper_, May 06 2006 *)

%t Table[Floor[(n*10^IntegerLength[n+2]+n+2)/(n+1)],{n,80}] (* _Harvey P. Dale_, Nov 05 2016 *)

%K base,nonn

%O 1,1

%A _Amarnath Murthy_, Nov 11 2005

%E More terms from _Ryan Propper_, May 06 2006

%E More terms from _R. J. Mathar_, Feb 07 2008

%E Corrected typo in Example. - _Harvey P. Dale_, Nov 05 2016