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