OFFSET
1,1
MATHEMATICA
Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^9 ] == 1, k++ ]; Print[ { n, Prime[ k ] } ], {n, 1, 100} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Sep 26 2007
EXTENSIONS
Extended by Max Alekseyev, May 08 2009
STATUS
approved