A155211 Numbers n such that n^4+(n+1)^4 is a prime.

1, 2, 3, 4, 6, 8, 9, 12, 13, 14, 16, 25, 26, 27, 31, 33, 34, 36, 37, 38, 40, 43, 48, 54, 63, 67, 68, 72, 74, 78, 82, 87, 88, 89, 97, 98, 104, 105, 109, 110, 111, 119, 121, 122, 123, 129, 145, 156, 157, 162, 163, 166, 167, 172, 173, 179, 180, 182, 184, 186, 187, 189, 195

Offset: 1

Author

Vincenzo Librandi, Jan 22 2009

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A153504, A154535.

Programs

Magma

[n: n in [1..200] |  IsPrime(n^4+(n+1)^4)]; // Vincenzo Librandi, Aug 31 2012

Mathematica

f[n_]:=n^4+(n+1)^4;lst={};Do[a=f[n];If[PrimeQ[a],AppendTo[lst,n]],{n,0,5!}];lst (* Vladimir Joseph Stephan Orlovsky, May 30 2009 *)
Select[Range[200],PrimeQ[#^4+(#+1)^4]&] (* Harvey P. Dale, Jun 15 2013 *)
Position[Total/@Partition[Range[200]^4,2,1],?PrimeQ]//Flatten (* _Harvey P. Dale, Sep 20 2023 *)