%I #8 Sep 12 2013 21:48:59
%S 5,6,4,3,2,6525,809652229
%N Least m >= 2 such that m^p - (m - 1)^p is composite for p = prime(n) but no smaller prime p.
%C Equivalently, least m such that A087896(m) = prime(n).
%C There are no other terms <= 10^9.
%t 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 *)
%Y Cf. A087896.
%K nonn,hard
%O 1,1
%A _Eric M. Schmidt_, Sep 12 2013
|