login
Primes p of the form |prime(n+2)^2-prime(n+1)^2-prime(n)^2|, (absolute values).
4

%I #4 Jun 24 2013 12:29:20

%S 47,97,409,433,1201,1321,1249,2713,3169,4201,4129,5209,7129,9001,

%T 10177,8521,15889,20353,29209,36457,33889,48817,49681,52201,69073,

%U 71209,93001,94201,88897,117529,118801,140401,165601,203017,210361,225529,229249

%N Primes p of the form |prime(n+2)^2-prime(n+1)^2-prime(n)^2|, (absolute values).

%C 11^2-7^2-5^2=47, 19^2-17^2-13^2=abs(97),...

%t Select[Table[Abs[Prime[n+2]^2-Prime[n+1]^2-Prime[n]^2],{n,6!}],PrimeQ[ # ]&]

%t Select[Abs[#[[3]]-#[[2]]-#[[1]]]&/@(Partition[Prime[Range[100]],3,1]^2), PrimeQ] (* _Harvey P. Dale_, Jun 24 2013 *)

%Y Cf. A000040

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Apr 09 2010