A155211 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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