A084714 a(n) = smallest prime of the form (2n-1)^k - 2, or 0 if no such number exists.

0, 7, 3, 5, 7, 14639, 11, 13, 24137567, 17, 19, 480250763996501976790165756943039, 23, 727, 839, 29, 31, 1223, 1367, 37, 2825759, 41, 43, 2207, 47, 45767944570399, 7890479, 53, 1176246293903439667999, 12117359, 59, 61, 318644812890623

Offset

1,2

Links

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

Mathematica

f[n_] := Block[{k = 1}, While[ !PrimeQ[(2*n - 1)^k - 2], k++ ]; (2*n - 1)^k - 2]; Table[ f[n], {n, 2, 34}]

Crossrefs

Cf. A084712, A084713.

Sequence in context: A135002 A319531 A175452 * A340820 A256779 A360094

Adjacent sequences: A084711 A084712 A084713 * A084715 A084716 A084717

Keyword

nonn

Author

Amarnath Murthy, Jun 10 2003

Extensions

Edited, corrected and extended by Robert G. Wilson v, Jun 11 2003

Status

approved