OFFSET
1,1
MATHEMATICA
Select[Range[0, 4000], PrimeQ[#^512 + (# + 1)^512] &]
Position[Partition[Range[3800]^512, 2, 1], _?(PrimeQ[Total[#]]&)]//Flatten (* Harvey P. Dale, Aug 03 2024 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Aug 31 2012
STATUS
approved
