1,1
Do[If[PowerMod[6, n, n-1]==n-2, Print[n]], {n, 2, 10^8}]
Sequence in context: A075796 A132396 A066244 this_sequence A028442 A062982 A042801
Adjacent sequences: A055686 A055687 A055688 this_sequence A055690 A055691 A055692
nonn,bref
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000
Search completed in 0.002 seconds