// E>=2 については尺取りでも大丈夫
// E=1だけ別
//
// R(R+1)/2 - L(L-1)/2 = N
// となる(L, R) の列挙
//
// いや違う
// (R-L+1)/2 * (L + R) = N
// となるようなものの列挙
// 2N の素因数分解

fn main() {
    input!(n: i128);
    let mut ans = vec![];
    for e in 2..=40 {
        let mut l = 1i128;
        let mut s = 0;
        for r in (1i128..).take_while(|r| r.pow(e) <= n) {
            s += r.pow(e);
            while s > n {
                s -= l.pow(e);
                l += 1;
            }
            if s == n {
                ans.push((e, l, r));
            }
        }
    }
    let m = 2 * n;
    for d in (1..).take_while(|d| d * d <= m) {
        if m % d == 0 {
            let mut a = vec![d, m / d];
            a.dedup();
            for d in a {
                // R-L+1 = d
                // L + R = m/d
                let x = d - 1;
                let y = m / d;
                if (x + y) % 2 != 0 {
                    continue;
                }
                let r = (x + y) / 2;
                let l = (y - x) / 2;
                if l <= r && 1 <= l {
                    ans.push((1, l, r));
                }
            }
        }
    }
    println!("{}", ans.len());
    ans.sort();
    for (e, l, r) in ans {
        println!("{e} {l} {r}");
    }
}

// ---------- begin input macro ----------
// reference: https://qiita.com/tanakh/items/0ba42c7ca36cd29d0ac8
#[macro_export]
macro_rules! input {
    (source = $s:expr, $($r:tt)*) => {
        let mut iter = $s.split_whitespace();
        input_inner!{iter, $($r)*}
    };
    ($($r:tt)*) => {
        let s = {
            use std::io::Read;
            let mut s = String::new();
            std::io::stdin().read_to_string(&mut s).unwrap();
            s
        };
        let mut iter = s.split_whitespace();
        input_inner!{iter, $($r)*}
    };
}

#[macro_export]
macro_rules! input_inner {
    ($iter:expr) => {};
    ($iter:expr, ) => {};
    ($iter:expr, $var:ident : $t:tt $($r:tt)*) => {
        let $var = read_value!($iter, $t);
        input_inner!{$iter $($r)*}
    };
}

#[macro_export]
macro_rules! read_value {
    ($iter:expr, ( $($t:tt),* )) => {
        ( $(read_value!($iter, $t)),* )
    };
    ($iter:expr, [ $t:tt ; $len:expr ]) => {
        (0..$len).map(|_| read_value!($iter, $t)).collect::<Vec<_>>()
    };
    ($iter:expr, chars) => {
        read_value!($iter, String).chars().collect::<Vec<char>>()
    };
    ($iter:expr, bytes) => {
        read_value!($iter, String).bytes().collect::<Vec<u8>>()
    };
    ($iter:expr, usize1) => {
        read_value!($iter, usize) - 1
    };
    ($iter:expr, $t:ty) => {
        $iter.next().unwrap().parse::<$t>().expect("Parse error")
    };
}
// ---------- end input macro ----------