OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
EXAMPLE
a(2) = 4^4 - (4+1)^3 = 256 - 125 = 131.
MATHEMATICA
Select[Table[n^4-(n+1)^3, {n, 3, 101900}], PrimeQ] (* Vincenzo Librandi, Dec 10 2011 *)
PROG
(Magma) [a: n in [3..120] | IsPrime(a) where a is n^4-(n+1)^3]; // Vincenzo Librandi, Dec 10 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Hugo Pfoertner, Aug 24 2003
STATUS
approved