A215433 Numbers n such that n^512 + (n+1)^512 is a prime.

59, 864, 1455, 1723, 2118, 2172, 2460, 2851, 2916, 2971, 3193, 3476, 3747, 3782, 3795

Offset: 1

Author

Vincenzo Librandi, Aug 31 2012

Keywords

• nonn
• easy

Crossrefs

Cf. A027861, A153504, A154535, A155211, A174156, A174157, A215431, A215432.

Programs

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 *)