#include <stdio.h>
#include <stdlib.h>

int st[100],vf;
int nr;


void Init(int k)
{
    st[k] = 0;
}

int Succesor(int k) {
    if (st[k] < nr)
    {
        st[k]++;
        return 1;
    }
    else
    {
        return 0;
    }
}

int Valid(k) {
    int i;
    for (i = 1; i < k; i++)
    {
        if (st[i] == st[k])
            return 0;
    }
    return 1;

}

int Solution(int k)
{
    return (k == nr);
}

void Print() {
    int i;
    for (i = 1; i <= nr; i++)
    {
        printf("%d ", st[i]);
    }
    printf("\n");
}

int prim(int k)
{
    int d,ok=1;
    for (d = 2; d <= k / 2; d++)
    {
        if (k%d == 0)
            ok = 0;
    }
    return ok;
}

void Back() {
    int isS, isV, x,aux,a[10],i,co,p=1,co1=1;
    for (x = 2; x < 10000; x++)
    {
        nr = 0;
        a[1] = 0;
        a[2] = 0;
        a[3] = 0;
        a[4] = 0;
        a[5] = 0;
        a[6] = 0;
        aux = x;
        co = x;
        while (aux > 0)
        {
            nr++;
            a[nr] = aux % 10;
            aux = aux / 10;
        }
        vf = 1;
        Init(vf);
        while (vf > 0)
        {
            isS = 0;
            isV = 0;
            if (vf <= nr)
            {
                do {
                    isS = Succesor(vf);
                    if (isS)
                    {
                        isV = Valid(vf);
                    }
                } while (isS && !isV);
            }
            if (isS)
            {
                if (Solution(vf))
                {
                    if (co == co1)
                    {
                        aux = 0;
                        if (p == 1) {
                            for (i = 1; i <= nr; i++)
                                aux = aux * 10 + a[st[i]];
                            p = prim(aux);
                        }
                    }
                    else
                    {
                        if (p == 1&&co1!=1)
                            printf("%d\n", co1);
                        co1 = co;
                        p = 1;
                        aux = 0;
                        for (i = 1; i <= nr; i++)
                            aux = aux * 10 + a[st[i]];
                        p = prim(aux);
                    }
                }
                else
                {
                    vf++;
                    Init(vf);
                }
            }
            else
            {
                vf--;
            }
        }
    }
}

void main()
{
    printf("Toate numerele prime circulare pana in 10.000 sunt:\n");
    Back();
}