1,1
Do[If[PowerMod[10, n, n-1]==n-2, Print[n]], {n, 2, 10^8}]
Sequence in context: A111012 A157066 A202740 * A106299 A176933 A101530
Adjacent sequences: A055690 A055691 A055692 * A055694 A055695 A055696
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000