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

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, 97, 97, 97, 97, 97, 97, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99

Offset

1,1

Links

Table of n, a(n) for n=1..72.

Example

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

Maple

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

Mathematica

c[r_, s_] := ToExpression[ToString[r] <> ToString[s]]; Table[Floor[c[n, n+2] / (n+1)], {n, 1, 50}] (* Ryan Propper, May 06 2006 *)
Table[Floor[(n*10^IntegerLength[n+2]+n+2)/(n+1)], {n, 80}] (* Harvey P. Dale, Nov 05 2016 *)

Crossrefs

Sequence in context: A136050 A281112 A229020 * A154476 A316858 A316859

Adjacent sequences: A113694 A113695 A113696 * A113698 A113699 A113700

Keyword

base,nonn

Author

Amarnath Murthy, Nov 11 2005

Extensions

More terms from Ryan Propper, May 06 2006

More terms from R. J. Mathar, Feb 07 2008

Corrected typo in Example. - Harvey P. Dale, Nov 05 2016

Status

approved