cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A307880 Hypotenuses of primitive pythagorean triangles having the property that the sum and absolute difference of the shorter legs are both prime numbers.

This page as a plain text file.
%I A307880 #13 Sep 25 2022 16:37:16
%S A307880 13,17,25,37,53,65,73,85,97,109,113,137,149,193,197,205,221,233,277,
%T A307880 289,305,317,337,365,401,425,445,449,457,485,505,533,541,613,625,641,
%U A307880 653,673,697,709,725,757,785,793,809,821,877,905,925,949,1009
%N A307880 Hypotenuses of primitive pythagorean triangles having the property that the sum and absolute difference of the shorter legs are both prime numbers.
%H A307880 Harvey P. Dale, <a href="/A307880/b307880.txt">Table of n, a(n) for n = 1..1000</a>
%e A307880 13 is a term because 12 + 5 = 17 and 12 - 5 = 7.
%e A307880 17 is a term because 15 + 8 = 23 and 15 - 8 = 7.
%e A307880 25 is a term because 24 + 7 = 31 and 24 - 7 = 17.
%t A307880 Sqrt[#[[1]]^2+#[[2]]^2]&/@Select[Union[Sort/@({Times@@#,(Last[#]^2-First[ #]^2)/2}&/@(Select[Subsets[Range[1,51,2],{2}],GCD@@#==1&]))],AllTrue[ {Total[#],#[[2]]-#[[1]]},PrimeQ]&]//Union (* _Harvey P. Dale_, Sep 25 2022 *)
%Y A307880 Subset of A008846.
%K A307880 nonn
%O A307880 1,1
%A A307880 _Torlach Rush_, May 02 2019