login
A155211
Numbers n such that n^4+(n+1)^4 is a prime.
13
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
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
Sequence in context: A265414 A373860 A189291 * A206716 A010385 A095037
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 22 2009
STATUS
approved