OFFSET
1,2
EXAMPLE
Prime(12) - 12 = 37 - 12 = 25 = 5^2.
MATHEMATICA
f[n_] := Prime[n] - n; Select[Range[10^4], ! GCD @@ Last /@ FactorInteger[f[ # ]] == 1 &] (* Ray Chandler, May 21 2005 *)
PROG
(PARI) isA107607(n)=(ispower(prime(n)-n) > 1) || (prime(n)-n == 1) \\ Michael B. Porter, Sep 28 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 17 2005
EXTENSIONS
Extended by Ray Chandler, May 21 2005
STATUS
approved