OFFSET
1,1
COMMENTS
11^2-7^2-5^2=47, 19^2-17^2-13^2=abs(97),...
MATHEMATICA
Select[Table[Abs[Prime[n+2]^2-Prime[n+1]^2-Prime[n]^2], {n, 6!}], PrimeQ[ # ]&]
Select[Abs[#[[3]]-#[[2]]-#[[1]]]&/@(Partition[Prime[Range[100]], 3, 1]^2), PrimeQ] (* Harvey P. Dale, Jun 24 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 09 2010
STATUS
approved