#![allow(
    non_snake_case,
    unused_variables,
    unused_assignments,
    unused_mut,
    unused_imports,
    dead_code
)]
//use proconio::fastout;
use proconio::input;
use proconio::marker::*;
//use std::collections::HashSet;
// use std::cmp::*;
//use std::collections::VecDeque;

fn main() {
    input! {
       N:usize
    }
    // 約数の個数は素因数分解して、各素因数の個数+1をかけたもの。
    // Ex: 12= 2^2*3^1なので、(2+1)*(1+1)=6個。1,2,3,4,6,12
    // 75=(2+1)*(4+1)*(4+1);
    // 100以下の素数は97までの25個。
    // 素数a,b,cについて、a<b<cとする。
    // N < c*2なら、cは N! に高々1個しか含まれないので、不可。
    // 同様に、N < b*4 も成立しない。
    // cの可能性があるのはN/2以下、a,bの可能性があるのはN/4
    let p = getPrimes(N);
    let mut ans = 0;
    //    let ts = getNumbersInN(N);
    let mut ts = vec![0; N + 1];
    for i in 0..p.len() {
        for j in p[i]..=N {
            let mut t = j;
            while t % p[i] == 0 {
                ts[p[i]] += 1;
                t = t / p[i];
            }
        }
    }
    //println!("{:?}", ts);

    // 2個,4個,4個の場合
    for i in 0..p.len() {
        let t = ts[p[i]];
        if t < 4 {
            break;
        }
        for j in (i + 1)..p.len() {
            let t2 = ts[p[j]];
            if t2 < 4 {
                break;
            }
            for k in (j + 1)..p.len() {
                let t3 = ts[p[k]];
                if t3 < 2 {
                    break;
                }
                if t3 < 4 {
                    ans += 1;
                } else {
                    ans += 3;
                }
            }
        }
    }
    //print!("{} ", ans);

    // 14,4の場合
    for i in 0..p.len() {
        let t = ts[p[i]];
        if t < 14 {
            break;
        }
        for j in (i + 1)..p.len() {
            let b = p[j];
            let t2 = ts[p[j]];
            if t2 < 4 {
                break;
            }
            if t2 < 14 {
                ans += 1;
            } else {
                ans += 2;
            }
        }
    }
    //print!("{} ", ans);

    // 24,2の場合
    for i in 0..p.len() {
        let t = ts[p[i]];
        if t < 24 {
            break;
        }
        for j in (i + 1)..p.len() {
            let t2 = ts[p[j]];
            if t2 < 2 {
                break;
            }
            if t2 < 24 {
                ans += 1;
            } else {
                ans += 2;
            }
        }
    }
    //print!("{} ", ans);
    // 74の場合
    for i in 0..p.len() {
        let a = p[i];
        let t = ts[a];
        if t < 74 {
            break;
        }
        ans += 1;
    }
    println!("{}", ans);
}
fn getPrimes(N: usize) -> Vec<usize> {
    let mut p = vec![true; N as usize + 1];
    let mut q = Vec::with_capacity(100);
    p[0] = false;
    p[1] = false;
    for i in 2..=N as usize {
        if p[i as usize] {
            q.push(i);
        }
        let mut j = 2;
        while i * j <= N {
            p[(i * j) as usize] = false;
            j += 1;
        }
    }
    q
}
// 75-1以上=1
// 25-1以上=3
// 15-1以上=4
// 5-1以上=9
// 3-1以上=15
// 1 + 4*48 + 6*23 + 24*23*47/2 = 1+192+138+12972
// 1 + 3*14 + 4*8 + 9*8*13/2 = 1+42+32+468=543

//[0, 97, 48, x32, 24,x18, 16, x13, x12, x11,
//  9,x8, 7,x7,x6,x6, 5,x5, 5, x5,
// x4,x4, 4,x4,x4,x3,x3,x3, 3,x3,
//  3,x3,x3,x2,x2,x2, 2,x2,x2,x2,
//  2,x2, 2,x2,x2,x2, 2,x2,x2,x2,
// 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
//  1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
//  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]


Measured memory_bytes: 2164