1,1
Do[If[PowerMod[10, n, n-1]==n-2, Print[n]], {n, 2, 10^8}]
Adjacent sequences: A055690 A055691 A055692 this_sequence A055694 A055695 A055696
Sequence in context: A028989 A113575 A111012 this_sequence A106299 A101530 A001184
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000
Search completed in 0.002 seconds