OFFSET
1,1
MATHEMATICA
Select[Range[5000], PrimeQ[#^256 + (# + 1)^256] &];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Aug 31 2012
STATUS
approved