(Translated by https://www.hiragana.jp/)
A155176 - OEIS
login
A155176
Perimeter s/6 (divided by 6) of primitive Pythagorean triangles such that perimeters are Averages of twin prime pairs, q=p+1, a=q^2-p^2, c=q^2+p^2, b=2*p*q, s=a+b+c, s-+1 are primes.
6
2, 5, 40, 77, 287, 590, 1335, 1717, 2882, 3337, 3927, 4030, 6902, 7315, 7740, 8932, 15965, 20592, 26070, 27405, 34277, 34580, 40920, 50692, 92132, 96647, 113575, 139690, 160557, 167167, 220225, 237407, 279720, 300832, 310765, 336777, 389895
OFFSET
1,1
COMMENTS
p=1,q=2,a=3,b=4,c=5,s=12-+1primes, ...
MATHEMATICA
lst={}; Do[p=n; q=p+1; a=q^2-p^2; c=q^2+p^2; b=2*p*q; s=a+b+c; If[PrimeQ[s-1]&&PrimeQ[s+1], AppendTo[lst, s/6]], {n, 8!}]; lst
KEYWORD
nonn
AUTHOR
STATUS
approved