A076810 Least k such that k*n^n +/- 1 are twin primes.

4, 1, 4, 57, 42, 3, 720, 243, 28, 57, 138, 63, 714, 1635, 602, 198, 666, 1328, 3390, 1047, 1372, 4980, 2796, 308, 60, 2883, 676, 1782, 16068, 130, 108, 16968, 466, 1920, 1986, 1710, 12840, 4545, 9628, 1707, 7098, 1890, 5520, 3042, 504, 4512, 13614

Offset

1,1

Links

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

Mathematica

nxt[n_]:=Module[{nn=n^n, k=1}, While[!PrimeQ[k nn+1]||!PrimeQ[k nn-1], k++]; k]; Array[nxt, 50] (* Harvey P. Dale, Jun 30 2011 *)

Crossrefs

Sequence in context: A033918 A136467 A079188 * A303144 A370451 A265602

Adjacent sequences: A076807 A076808 A076809 * A076811 A076812 A076813

Keyword

nonn

Author

Jason Earls, Nov 18 2002

Status

approved