A201134 Least k such that (5^n + k)*5^n - 1 is a prime number.

1, 17, 1, 1, 5, 5, 55, 25, 37, 1, 53, 5, 53, 35, 47, 31, 127, 11, 1, 17, 11, 59, 71, 5, 155, 23, 11, 1, 13, 47, 43, 71, 17, 77, 53, 41, 13, 277, 47, 5, 143, 185, 157, 371, 43, 127, 119, 61, 221, 79, 131, 19, 49, 241, 7, 121, 11, 551, 157, 335, 13, 17, 13

Offset

1,2

Links

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

Mathematica

Table[k = 0; While[!PrimeQ[(5^n + k)*5^n - 1], k++]; k, {n, 85}]

Crossrefs

Cf. A191618, A200921.

Sequence in context: A040294 A040291 A040290 * A040289 A190580 A176203

Adjacent sequences: A201131 A201132 A201133 * A201135 A201136 A201137

Keyword

nonn

Author

Michel Lagneau, Nov 27 2011

Status

approved