%I #8 Sep 08 2022 08:45:57
%S 17,353,7793,45377,588737,1603073,2131937,2782097,23705153,27488177,
%T 36393857,142457633,156688577,288296417,423617057,780627473,830968337,
%U 938914433,1254730193,5724613457,9150064577,13500386657,15247220033
%N Primes of the form 3*n^4+12*n^2+2, n > 0.
%C Prime sums of three consecutive fourth powers, since 3*n^4+12*n^2+2 = (n-1)^4+n^4+(n+1)^4.
%C Primes in A160827.
%e 2^4+3^4+4^4 = 353 is prime and therefore in the sequence.
%t lst={};Do[If[PrimeQ[p=(n+1)^4+n^4+ (n-1)^4], AppendTo[lst,p]],{n, 100}];lst
%t lst={};Do[If[PrimeQ[p=3*n^4+12*n^2+2], AppendTo[lst, p]],{n,100}];lst
%o (Magma) [ p: n in [0..300] | IsPrime(p) where p is n^4+(n+1)^4+(n+2)^4 ];
%Y Cf. A160827.
%K nonn
%O 1,1
%A _Rafael Parra Machio_, Jun 07 2011
|