OFFSET
1,1
COMMENTS
LINKS
Vladimir Pletser, Table of n, a(n) for n = 1..1000
MATHEMATICA
t = {}; Do[np7 = n^7 - (n - 1)^7; If[PrimeQ[np7], AppendTo[t, n]], {n, 305}]; t (* Carl R. White, Feb 28 2008 *)
Flatten[Position[Partition[Range[400]^7, 2, 1], _?(PrimeQ[#[[2]]- #[[1]]]&), {1}, Heads->False]]+1 (* or *) Select[Range[400], PrimeQ[#^7-(#-1)^7]&] (* Harvey P. Dale, Mar 19 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 10 2006
EXTENSIONS
More terms from Carl R. White, Feb 28 2008
STATUS
approved