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,2

Links

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

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

Prog

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

Crossrefs

Cf. A153504, A154535.

Sequence in context: A085500 A265414 A189291 * A206716 A010385 A095037

Adjacent sequences: A155208 A155209 A155210 * A155212 A155213 A155214

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 22 2009

Status

approved