OFFSET
1,2
COMMENTS
MATHEMATICA
Do[ k=n*23^2; f=PowerMod[ 3, k-1, k ] - PowerMod[ 2, k-1, k ]; If[ IntegerQ[ f/k ], Print[ n ] ], {n, 1, 1000000} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, May 04 2007
STATUS
approved