OFFSET
1,1
MATHEMATICA
Do[s=n-EulerPhi[n]-1; If[PrimeQ[s], Print[s]], n, 1, 10000]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 26 2002
STATUS
approved