Matlab - RAIZ

np=0;%números primos

k=1; %contar

while np~=5

if isprime(k)

j=num2str(k);

for i=1:3

    j=sum(double(num2str(j))-48);

end

if isprime(j)

    np=np+1;

    A(np)=k;

end

end

k=k+1;

end

disp(A)

>> numeros_primos

clear all

 a=1:2000; b=isprime(a); primos=a(b);

 k=1;

for i=1:length(primos)

        n=num2str(primos(i));

    s=0;

    while 1

       for j=1:length(n);

           s=s+str2num(n(j));

       end

       if s<10 && isprime(s)

           T(1,k)=primos(i);

           T(2,k)=s;

           k=k+1;

           s=0;

           break;

       elseif s<10 && ~isprime(s)

               break;

       else

            n=num2str(s);

            s=0;

       end

       end

end

>> numeros_primos

T =

  Columns 1 through 13

           2           3           5           7          11          23          29          41          43          47          59          61          79

           2           3           5           7           2           5           2           5           7           2           5           7           7

  Columns 14 through 26

          83          97         101         113         131         137         149         151         167         173         191         223         227

           2           7           2           5           5           2           5           7           5           2           2           7           2

  Columns 27 through 39

         239         241         257         263         277         281         293         311         313         317         331         347         349

           5           7           5           2           7           2           5           5           7           2           7           5           7

  Columns 40 through 52

         353         367         383         389         401         419         421         439         443         457         461         479         491

           2           7           5           2           5           5           7           7           2           7           2           2           5

  Columns 53 through 65

         509         547         563         569         587         599         601         617         619         641         653         659         673

           5           7           5           2           2           5           7           5           7           2           5           2           7

  Columns 66 through 78

         677         691         709         727         743         761         797         821         839         853         857         887         907

           2           7           7           7           5           5           5           2           2           7           2           5           7

  Columns 79 through 91

         911         929         941         947         977         983         997        1013        1019        1031        1033        1049        1051

           2           2           5           2           5           2           7           5           2           5           7           5           7

  Columns 92 through 104

        1069        1087        1091        1103        1109        1123        1163        1181        1193        1213        1217        1229        1231

           7           7           2           5           2           7           2           2           5           7           2           5           7

  Columns 105 through 117

        1249        1283        1289        1301        1303        1307        1319        1321        1361        1373        1409        1427        1429

           7           5           2           5           7           2           5           7           2           5           5           5           7

  Columns 118 through 130

        1433        1447        1451        1481        1483        1487        1499        1523        1553        1559        1571        1607        1609

           2           7           2           5           7           2           5           2           5           2           5           5           7

  Columns 131 through 143

        1613        1627        1663        1667        1697        1699        1721        1733        1753        1787        1789        1811        1823

           2           7           7           2           5           7           2           5           7           5           7           2           5

  Columns 144 through 155

        1847        1861        1877        1879        1901        1913        1931        1933        1949        1951        1973        1987

           2           7           5           7           2           5           5           7           5           7           2           7