|
%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
|
