let p = [2;3;5;7;11;13]
let c = [4;6;8;9;10;12]
let s = List.collect (fun x -> List.map (fun y -> x,y,x*y) c) p
let last (a,b,c) = c
let calc (n:int) = decimal(n) / 36M
let N = stdin.ReadLine() |> int
s |> List.filter (last >> (=)N) |> List.length
|> calc
|> printfn "%M"