/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 13.04.2 ] */
/* [wxMaxima: comment start ]
Alcuni primi speciali
[wxMaxima: comment end ] */
/* [wxMaxima: comment start ]
Cerco dei primi che, diminuiti di 1 sono
dei quadrati ovviamente di numeri pari...
E cerco le loro radici primitive...
Il piu' piccolo primo di questo tipo e' 5
dato che e' 2*2+1
[wxMaxima: comment end ] */
/* [wxMaxima: comment start ]
Definisco la funzione che mi serve per questa ricerca
[wxMaxima: comment end ] */
/* [wxMaxima: input start ] */
pq(da,ad):=block((xprimo,buono:0,radpri:0,j),
for j:da step 1 thru ad do( xprimo:4*j*j+1,
if primep(xprimo) then ( buono:xprimo,
radpri:zn_primroot(buono),
print((2*j)," Primo ",buono," Verifica: ",
primep(buono)," Radice primitiva ",radpri))),
return([buono,radpri]))$ pq(2,5);
/* [wxMaxima: input end ] */
/* [wxMaxima: comment start ]
10*10+1 = 101 e' primo con radice primitiva 2
[wxMaxima: comment end ] */
/* [wxMaxima: input start ] */
for nn:500 step 500 thru 20000 do pq(nn-5,nn+5);
for nn:20000 step 500 thru 30000 do pq(nn-5,nn+5);
for nn:50000 step 10000 thru 200000 do pq(nn-5,nn+5);
/* [wxMaxima: input end ] */
/* [wxMaxima: comment start ]
Dunque primi semplici e grossi con questa forma sono:
1004*1004+1 con radice primitiva 3
2006*2006+1 con radice primitiva 2
3016*3016+1 con radice primitiva 3
4006*4006+1 con radice primitiva 2
9000*9000+1 con radice primitiva 14
12000*12000+1 con radice primitiva 13
50000*50000+1 con radice primitiva 3
120000*120000+1 con radice primitiva 11
[wxMaxima: comment end ] */
/* [wxMaxima: comment start ]
[wxMaxima: comment end ] */
/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$