A193813 Least k such that n^n + k + 1 is a prime.

0, 0, 1, 0, 11, 6, 3, 42, 9, 18, 61, 34, 15, 26, 27, 12, 73, 106, 17, 90, 31, 86, 13, 94, 95, 42, 67, 134, 119, 18, 57, 6, 57, 62, 53, 30, 41, 114, 9, 156, 109, 12, 3, 402, 121, 456, 533, 36, 17, 30, 225, 252, 19, 192, 101, 176, 391, 44, 193, 256, 101, 78, 453

Offset

1,5

Links

Amiram Eldar, Table of n, a(n) for n = 1..500

Formula

a(n) = A098682(n) - n^n -1. - Michel Marcus, Aug 20 2019

Example

a(5) = 11 because 5^5 + 11 + 1 = 37 is prime.

Mathematica

a={}; Do[k = 0; While[ !PrimeQ[n^n + k + 1], k++ ]; AppendTo[a, k], {n, 1, 100} ]; a

Prog

(PARI) a(n) = nextprime(n^n) - n^n - 1; \\ Michel Marcus, Aug 20 2019

Crossrefs

Cf. A000312, A098682.

Sequence in context: A347357 A288069 A236175 * A338920 A080501 A122098

Adjacent sequences: A193810 A193811 A193812 * A193814 A193815 A193816

Keyword

nonn

Author

Michel Lagneau, Aug 06 2011

Status

approved