OFFSET
2,1
COMMENTS
LINKS
Derek Orr, Table of n, a(n) for n = 2..16
PROG
(PARI)
a(n)=k=1; if(n>4, forprime(p=1, 100, if(ispower(n)&&ispower(n)%p==0&&n%p==0, return(0)); if(n%p==n, break))); k=1; while(!ispseudoprime(n^k-k^n), k++); return(n^k-k^n)
vector(15, n, a(n+1))
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Aug 08 2014
STATUS
approved