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