cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A193813 #10 Aug 20 2019 09:24:56
%S A193813 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,
%T A193813 42,67,134,119,18,57,6,57,62,53,30,41,114,9,156,109,12,3,402,121,456,
%U A193813 533,36,17,30,225,252,19,192,101,176,391,44,193,256,101,78,453
%N A193813 Least k such that n^n + k + 1 is a prime.
%H A193813 Amiram Eldar, <a href="/A193813/b193813.txt">Table of n, a(n) for n = 1..500</a>
%F A193813 a(n) = A098682(n) - n^n -1. - _Michel Marcus_, Aug 20 2019
%e A193813 a(5) = 11 because 5^5 + 11 + 1 = 37 is prime.
%t A193813 a={};Do[k = 0; While[ !PrimeQ[n^n + k + 1], k++ ]; AppendTo[a, k], {n, 1, 100} ];a
%o A193813 (PARI) a(n) = nextprime(n^n) - n^n - 1; \\ _Michel Marcus_, Aug 20 2019
%Y A193813 Cf. A000312, A098682.
%K A193813 nonn
%O A193813 1,5
%A A193813 _Michel Lagneau_, Aug 06 2011