A229073 Least m >= 2 such that m^p - (m - 1)^p is composite for p = prime(n) but no smaller prime p.

5, 6, 4, 3, 2, 6525, 809652229

Offset

1,1

Comments

Equivalently, least m such that A087896(m) = prime(n).

There are no other terms <= 10^9.

Links

Table of n, a(n) for n=1..7.

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

Cf. A087896.

Sequence in context: A064206 A087197 A221216 * A019818 A187146 A128632

Adjacent sequences: A229070 A229071 A229072 * A229074 A229075 A229076

Keyword

nonn,hard

Author

Eric M. Schmidt, Sep 12 2013

Status

approved