1,1
Do[If[PowerMod[4, n, n-1]==n-2, Print[n]], {n, 2, 10^8}]
Sequence in context: A155206 A076954 A060598 this_sequence A006262 A003043 A059783
Adjacent sequences: A055684 A055685 A055686 this_sequence A055688 A055689 A055690
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000
Search completed in 0.002 seconds