OFFSET
1,1
COMMENTS
a(n) > 2 for all n.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..200
EXAMPLE
1^1-1 = 0 is not prime. 2^1-1 = 1 is not prime. 3^1-1 = 2 is prime. Thus a(1) = 3.
MATHEMATICA
lnk[n_]:=Module[{k=2}, While[!PrimeQ[k^n-Total[k^Range[0, n-1]]], k++]; k]; Array[lnk, 80] (* Harvey P. Dale, Aug 26 2016 *)
PROG
(PARI) a(n)=for(k=1, oo, if(ispseudoprime(k^n-sum(i=0, n-1, k^i)), return(k)))
for(n=1, 100, print1(a(n)", "))
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Derek Orr, Jun 03 2014
STATUS
approved