open System

let f r =
  let sqrt' = float >> sqrt >> int
  let isSquare x =
      let t = sqrt' x
      t * t = x
  [ for i in 1 .. sqrt' r -> r - i * i ]
  |> List.where isSquare
  |> List.length
  |> (*) 4
  
let solve min max =
  [ for i in min .. max -> f i ]
  |> List.max
  
let X, Y =
    let t = Console.ReadLine().Split() |> Array.map int
    t.[0], t.[1]
    
solve X Y
|> Console.WriteLine