|
%I #15 Sep 20 2023 20:30:53
%S 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,
%T 67,68,72,74,78,82,87,88,89,97,98,104,105,109,110,111,119,121,122,123,
%U 129,145,156,157,162,163,166,167,172,173,179,180,182,184,186,187,189,195
%N Numbers n such that n^4+(n+1)^4 is a prime.
%H Vincenzo Librandi, <a href="/A155211/b155211.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%t Select[Range[200],PrimeQ[#^4+(#+1)^4]&] (* _Harvey P. Dale_, Jun 15 2013 *)
%t Position[Total/@Partition[Range[200]^4,2,1],_?PrimeQ]//Flatten (* _Harvey P. Dale_, Sep 20 2023 *)
%o (Magma) [n: n in [1..200] | IsPrime(n^4+(n+1)^4)]; // _Vincenzo Librandi_, Aug 31 2012
%Y Cf. A153504, A154535.
%K nonn,easy
%O 1,2
%A _Vincenzo Librandi_, Jan 22 2009
|
