OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MAPLE
L:= NULL: for x from 1 to 1000 do if isprime((x+1)^7 - x^7) then L:= L, x fi od: L;
MATHEMATICA
Flatten[Position[Partition[Range[400]^7, 2, 1], _?(PrimeQ[Last[#]- First[ #]]&), {1}, Heads->False]] (* Harvey P. Dale, Aug 20 2013 *)
Select[Range[0, 400], PrimeQ[(# + 1)^7 - #^7] &] (* Vincenzo Librandi, Apr 20 2014 *)
PROG
(Magma) [n: n in [0..350] | IsPrime((n+1)^7-n^7)]; // Vincenzo Librandi, Apr 20 2014
(PARI) is(n)=isprime((n+1)^7-n^7) \\ Charles R Greathouse IV, Jun 06 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert Israel, Jan 24 2006
STATUS
approved