7 lines
139 B
Text
7 lines
139 B
Text
Func Rep(n)=Sigma<m=0,n-1>[10^m].;
|
|
c:=0;
|
|
n:=3;
|
|
while c<10 do
|
|
n:=n+1;
|
|
if Isprime(n)>1 and Divides(n,Rep(n-1)) then !!n; c:+; fi
|
|
od;
|