[go: up one dir, main page]

login
A193813
Least k such that n^n + k + 1 is a prime.
1
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
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
Sequence in context: A347357 A288069 A236175 * A338920 A080501 A122098
KEYWORD
nonn
AUTHOR
Michel Lagneau, Aug 06 2011
STATUS
approved