// xcas version=0.7.3 fontsize=20 font=0
// fltk 7Fl_Tile 13 -38 930 31 20 0
[
// fltk N4xcas23Comment_Multiline_InputE 13 -38 930 30 20 0
Certificat de primalite, calcule par PARI dans Xcas
,
// fltk N4xcas10Log_OutputE 13 -8 930 1 20 0

]
,
// fltk 7Fl_Tile 13 -5 930 52 20 0
[
// fltk N4xcas19Multiline_Input_tabE 13 -5 930 28 20 0
N:=9856989898997789789
,
// fltk N4xcas10Log_OutputE 13 23 930 1 20 0

,
// fltk N4xcas8EquationE 13 24 930 23 20 0
9856989898997789789
]
,
// fltk 7Fl_Tile 13 49 930 215 20 0
[
// fltk N4xcas19Multiline_Input_tabE 13 49 930 31 20 0
pari("isprime",N,1)
,
// fltk N4xcas10Log_OutputE 13 80 930 1 20 0

,
// fltk N4xcas8EquationE 13 81 930 183 20 0
[[2,2,1],[19,2,1],[941,2,1],[1873,2,1],[94907,2,1]]
]
,
// fltk 7Fl_Tile 13 266 930 69 20 0
[
// fltk N4xcas19Multiline_Input_tabE 13 266 930 29 20 0
ifactor(N-1)
,
// fltk N4xcas10Log_OutputE 13 295 930 2 20 0

,
// fltk N4xcas8EquationE 13 297 930 38 20 0
2^2*19*941*1873*94907*775363
]
,
// fltk 7Fl_Tile 13 337 930 54 20 0
[
// fltk N4xcas19Multiline_Input_tabE 13 337 930 30 20 0
powmod(2,N-1,N)
,
// fltk N4xcas10Log_OutputE 13 367 930 1 20 0

,
// fltk N4xcas8EquationE 13 368 930 23 20 0
1
]
,
// fltk 7Fl_Tile 13 393 930 266 20 0
[
// fltk N4xcas19Multiline_Input_tabE 13 393 930 30 20 0
for p in [2,19,941,1873,94907] do print(powmod(2,(N-1)/p,N)-1); print(gcd(powmod(2,(N-1)/p,N)-1,N));od;
,
// fltk N4xcas10Log_OutputE 13 423 930 213 20 0
9856989898997789787£1£4455767557855561010£1£5132729495564961263£1£8517148938682897986£1£9131989858218687787£1£
,
// fltk N4xcas8EquationE 13 636 930 23 20 0
1
]
,
// fltk 7Fl_Tile 13 661 930 36 20 0
[
// fltk N4xcas19Multiline_Input_tabE 13 661 930 35 20 0

,
// fltk N4xcas10Log_OutputE 13 696 930 1 20 0

]