1,1
Do[If[PowerMod[12, n, n-1]==n-2, Print[n]], {n, 2, 10^8}]
Adjacent sequences: A055692 A055693 A055694 this_sequence A055696 A055697 A055698
Sequence in context: A035105 A073969 A120950 this_sequence A113593 A122763 A005432
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000
Search completed in 0.002 seconds