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.
%I A074967 #23 Jan 20 2019 15:42:40 %S A074967 1,4,5,4,7,2,3,10,33,42,19,12,17,52,59,18,65,2,51,2,23,120,35,2,63,10, %T A074967 39,186,7,74,47,200,53,24,19,48,333,56,57,192,127,348,63,124,213,60, %U A074967 359,2,213,2,387,526,269,252,863,16,131,370,503,294,83,68,317 %N A074967 a(n) = least k such that n^n - k is prime. %H A074967 Seiichi Manyama, <a href="/A074967/b074967.txt">Table of n, a(n) for n = 2..500</a> %t A074967 PrimePrevDelta[n_]:=Module[{k},k=n-1;While[ !PrimeQ[k],k-- ];k=n-k]; lst={};Do[AppendTo[lst,PrimePrevDelta[n^n]],{n,2,5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jun 11 2009 *) %t A074967 lk[n_]:=Module[{nn=n^n},nn-NextPrime[nn,-1]]; Array[lk,70,2] (* _Harvey P. Dale_, Jan 20 2019 *) %o A074967 (PARI) a(n)=(x->x-precprime(x))(n^n) \\ _Charles R Greathouse IV_, Nov 25 2014 %Y A074967 Cf. A033933, A074966. %K A074967 nonn %O A074967 2,2 %A A074967 _Zak Seidov_, Oct 03 2002 %E A074967 More terms from _Robert G. Wilson v_, Oct 04 2002 %E A074967 Offset corrected by _R. J. Mathar_, Jun 12 2009