OFFSET
1,1
COMMENTS
LINKS
Vladimir Pletser, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[n^7 - (n-1)^7, {n, 1, 200}], PrimeQ]
PROG
(PARI) select(isprime, vector(1000, n, n^7-(n-1)^7)) \\ Charles R Greathouse IV, May 15 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Alexander Adamchuk, Aug 10 2006
STATUS
approved