login
A215433
Numbers n such that n^512 + (n+1)^512 is a prime.
4
59, 864, 1455, 1723, 2118, 2172, 2460, 2851, 2916, 2971, 3193, 3476, 3747, 3782, 3795
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 *)
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Aug 31 2012
STATUS
approved