OFFSET
1,1
COMMENTS
Equivalently, least m such that A087896(m) = prime(n).
There are no other terms <= 10^9.
MATHEMATICA
Table[m = 2; While[! And @@ Table[PrimeQ[m^Prime[i] - (m-1)^Prime[i]], {i, n-1}] || PrimeQ[m^Prime[n] - (m-1)^Prime[n]], m++]; m, {n, 6}] (* T. D. Noe, Sep 12 2013 *)
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
Eric M. Schmidt, Sep 12 2013
STATUS
approved