OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
7 is in this sequence because 7^4+8^4 = 6497 = 73*89.
MATHEMATICA
Select[Range[200], ! PrimeQ[#^4 + (# + 1)^4] &]
Position[Total/@Partition[Range[120]^4, 2, 1], _?CompositeQ]//Flatten (* Harvey P. Dale, Mar 31 2024 *)
PROG
(Magma) [n: n in [1..200] | not IsPrime(n^4+(n+1)^4)];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Apr 20 2014
STATUS
approved