|
Hrvatski matematički elektronski časopis math.e |
| http://web.math.hr/mathe/ |
In[1]:=\!\(Select[Prime[Range[1000000]], \
PrimeQ[2# + 1] && PrimeQ[#\^2 + 4] && PrimeQ[#\^2 - 8] &&
PrimeQ[2 #\^2 + 9] && PrimeQ[2 #\^2 - 15] &]\)
Out[1]= {5925203,9327833,9402803,11137823}
In[9]:= y=4*p
Out[9]= {23700812,37311332,37611212,44551292}
In[10]:= \!\(x = p\^2 - 4\)
Out[10]= {35108030591205,87008468475885,88412704256805,124051101179325}
In[11]:= \!\(z = p\^2 + 4\)
Out[11]= {35108030591213,87008468475893,88412704256813,124051101179333}
In[13]:= \!\(x\^2 + y\^2 == z\^2\)
Out[13]= True
Hrvoje Čavrak, student 2. godine, PMF-Matematički odjel, Zagreb