#include <iostream>
using namespace std;
int n, a[1000000];
void snt(){
    a[0] = a[1] = 1;
    for (int i=2; i*i<=1000000; i++){
        for (int j=i*i; j<=1000000; j+=i){
            a[j] = 1;
        }
    }
}
int main(){
    snt();
    cin >> n;
    for (int i=2; i<n; i++){
        for (int j=2; j<n; j++){
            int k = n-(i+j);
            if (a[i] == 0 && a[j] == 0 && a[k] == 0){
                cout << i << " " << j << " " << k;
                return 0;
            }
        }
    }
}

`@Daoanhviet96`

Program tongnt;
Uses    crt;
Var     A,B,D: array[1..100] of integer;
        C: array[1..3] of integer;
        F: array[1..100] of boolean;
        N,h,j,k,S: integer;
Procedure xuat;
Begin
        Write(N,'=',C[1],'+',C[2],'+',C[3]);
        Readln;
end;
Procedure try(i: integer);
Var       j: integer;
Begin
        For j:=1 to k do
        If F[j]=true then
        begin
                C[i]:=B[j];
                S:=S+C[i];
                If S>N then begin
                                 S:=S-C[i]-C[i-1];
                                 break;
                                 end
                else if i=3 then
                        If S=N then
                        begin
                             While D[h]<>0 do
                                   If (C[2]<>D[h]) and (C[3]<>D[h]) then inc(h)
                                   else break;
                             If D[h]=0 then
                             begin
                                  xuat;
                                  D[h]:=C[1]; D[h+1]:=C[2]; D[h+2]:=C[3];
                             end;
                             h:=1;
                             S:=S-C[i]-C[i-1];
                             break;
                        end
                        else S:=S-C[i]
                     else begin
                               F[j]:=false;
                               try(i+1);
                               F[j]:=true;
                          end;
        end;
end;
Begin   clrscr;
        Write('Nhap N: '); Readln(N);
        Fillchar(A,sizeof(A),0);
        Fillchar(F,sizeof(F),true);
        Fillchar(D,sizeof(D),0);
        j:=2;A[1]:=1;
        While j<=trunc(sqrt(N)) do
        begin
                If A[j]=0 then
                For k:=2 to (N div j) do A[k*j]:=1;
                inc(j);
        end;
        j:=1;k:=1;
        While j<=N do
        begin
                If A[j]=0 then
                                begin
                                        B[k]:=j;
                                        inc(k);
                                end;
                inc(j);
        end;
        k:=k-1; S:=0; h:=1;
        try(1);
end.