module Main where

import Control.Applicative
import Control.Monad

main :: IO ()
main = do
    [n, k] <- fmap read . words <$> getLine :: IO [Int]
    let ans = [ (a, b, c)
              | a <- [1 .. n]
              , let s = (a + 1) `div` k
              , let t = (a + n) `div` k
              , q1 <- [s .. t]
              , let b = k * q1 - a
              , b >= 1
              , (a + b) `mod` k == 0
              , q2 <- [s .. t]
              , let c = k * q2 - a
              , c >= 1
              , (b + c) `mod` k == 0
              , (c + a) `mod` k == 0
              ]
    print $ length ans