#include <iostream>
using namespace std;

struct pereche { int nr, ap;};

void citire(int a[], int &n)//citeste pana cand se da 0
{
    n=0;
    int x;
    cin>>x;
    while(x>0)
    {
        a[++n]=x;
        cin>>x;
    }
}

void afisare( pereche Y[], int n)//afiseaza vectorul de perechi
{
    for(int i=1;i<=n;i++)
        cout<<"("<<Y[i].nr<<","<<Y[i].ap<<") ";
}

int prim(int n)//verifica daca n e prim
{
    if(n==0 || n==1) return 0;
    for(int d=2;d*d<=n;d++)
        if(n%d==0) return 0;
    return 1;
}

int sumacif(int n)//claculeaza suma cifrelor lui n
{
    int s=0;
    while(n>0)
    {
        s=s+n%10; n=n/10;
    }
    return s;
}

int pozcautbin(pereche Y[], int n, int x) //cauta binar pe x in Y (in prima valoare din pereche)
{                   //si returneaza pozitia sau 0
    int st=1, dr=n;
    while(st<=dr)
    {
        int m=(st+dr)/2;
        if(Y[m].nr==x) return m;
        else if(Y[m].nr<x) st=m+1;
             else dr=m-1;
    }
    return 0;
}

void inserare(pereche Y[], int &n, int x)
{
    int poz=pozcautbin(Y,n,x);
    if(poz!=0) Y[poz].ap++;//apare deja=>marim nr de aparitii
    else //altfel inseram perechea (x,1) in Y
    {
        n++;//marim n
        Y[n].nr=x; Y[n].ap=1;// punem pe ultima pozitie
        int i=n;
        while(i>1 && Y[i].nr<Y[i-1].nr) //interschimbam spre stanga pana la pozitia ei
        {
            pereche aux=Y[i]; Y[i]=Y[i-1]; Y[i-1]=aux;
            i--;
        }
    }
}

void construire(int X[], int n, pereche Y[], int &m)//construieste Y cu elemente din X
{
    for(int i=1;i<=n;i++)
        if(prim(sumacif(X[i])))//are suma cifrelor numar prim
            inserare(Y,m,X[i]); //=> adaugam pe X[i] in Y
}

int main()
{
    int X[100],n,m=0;
    pereche Y[100];
    citire(X,n);
    construire(X,n,Y,m);
    if(m==0) cout<<"Y este vid";
    else afisare(Y,m);
    return 0;
}