local read = setmetatable({}, {__index = function(t, k) local a = {} for i=1,#k do table.insert(a, '*'..string.sub(k, i, i)) end local r = io.read local u = table.unpack or unpack return function() return r(u(a)) end end})
read.N = function(N) local t={} for i=1,N do t[i]=read.n() end return t end
----

local N = read.n()

local function get(b, e)
    -- number of integer x where:
    --  - begin with b,
    --  - end with e, and
    --  - x <= N
    local c = 0
    for i=e,N,10 do
        local x = tonumber(tostring(i):sub(1,1))
        if x == b then
            c = c + 1
        end
    end
    return c
end

local cnt = 0
-- A
-- x....y
-- B
-- y....x
for x=1,9 do
    for y=1,9 do
        local cnt_a = get(x, y)
        local cnt_b = get(y, x)
        cnt = cnt + cnt_a * cnt_b
    end
end
print(cnt)