OFFSET
2,1
MATHEMATICA
a = {}; Do[k = 2; While[ ! PrimeQ[k^n -k - 1], k++ ]; AppendTo[a, k^n - k - 1], {n, 2, 30}]; a (*Artur Jasinski*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 26 2006, Jan 19 2007
STATUS
approved