open System
let n = stdin.ReadLine() |> int

let mutable arr = [|[|0;0;0;0;0;0;0;0;0;0|];[|0;0;0;0;0;0;0;0;0;0|];[|0;0;0;0;0;0;0;0;0;0|];[|0;0;0;0;0;0;0;0;0;0|];[|0;0;0;0;0;0;0;0;0;0|];[|0;0;0;0;0;0;0;0;0;0|];[|0;0;0;0;0;0;0;0;0;0|];[|0;0;0;0;0;0;0;0;0;0|];[|0;0;0;0;0;0;0;0;0;0|];[|0;0;0;0;0;0;0;0;0;0|]|]

let f (x:int) = let keta = int(Math.Log10(float x))
                let keta_10 = int(10.0 ** (float keta))
                x / keta_10

let g (x:int) = x % 10

for i in 1..n do
 let hd = f i
 let tl = g i
 arr.[hd].[tl] <- (arr.[hd].[tl] + 1)

let ans1 = [for i in 1..9 -> arr.[i].[i]] |> List.sumBy (fun x -> (x * x))
let ans2 = [for i in 1..8 do
            for j in (i + 1)..9 -> (arr.[i].[j] * arr.[j].[i] * 2)] |> List.sum

(ans1 + ans2)
|>stdout.WriteLine