login
A074993
a(n) = floor((concatenation of n, n+1)/2).
9
0, 6, 11, 17, 22, 28, 33, 39, 44, 455, 505, 556, 606, 657, 707, 758, 808, 859, 909, 960, 1010, 1061, 1111, 1162, 1212, 1263, 1313, 1364, 1414, 1465, 1515, 1566, 1616, 1667, 1717, 1768, 1818, 1869, 1919, 1970, 2020, 2071, 2121, 2172, 2222, 2273, 2323, 2374
OFFSET
0,2
COMMENTS
The first differences follow a pattern. Odd-indexed terms and even-indexed terms form separate A.P.s with the same common difference for all n except n = 10^k -1. The corresponding common differences are the repunits = (10^(d+1)-1)/9 where d = the number of digits in n.
MATHEMATICA
cc[n_]:=Floor[FromDigits[Join[IntegerDigits[n], IntegerDigits[n+1]]]/2]; Array[cc, 40, 0] (* Harvey P. Dale, Nov 11 2011 *)
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Aug 31 2002
STATUS
approved