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.

Showing 1-2 of 2 results.

A155186 Primes in A155171.

Original entry on oeis.org

2, 7, 29, 101, 107, 197, 227, 457, 647, 829, 1549, 1627, 2221, 2309, 2347, 2521, 2677, 2801, 3181, 3299, 3529, 3541, 3557, 3739, 3769, 4231, 4549, 4871, 4987, 5651, 5827, 5881, 6037, 6079, 6637, 6827, 7517, 7639, 7937, 9787, 11621, 12041, 12329, 13009
Offset: 1

Views

Author

Keywords

Comments

Numbers p (prime numbers only) 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.

Crossrefs

Programs

  • Mathematica
    lst={};Do[p=n;q=p+1;a=q^2-p^2;c=q^2+p^2;b=2*p*q;ar=a*b/2;s=a+b+c;If[PrimeQ[s-1]&&PrimeQ[s+1],If[PrimeQ[p],AppendTo[lst,p]]],{n,8!}];lst

A155187 Prime numbers q of primitive Pythagorean triangles such that perimeters are averages of twin prime pairs, p+1=q(prime), a=q^2-p^2, c=q^2+p^2, b=2*p*q, ar=a*b/2; s=a+b+c, s-+1 are primes.

Original entry on oeis.org

2, 3, 11, 71, 227, 491, 683, 1103, 1187, 2591, 3923, 4271, 4931, 6737, 7193, 7703, 8093, 8753, 8963, 9173, 9377, 10271, 13043, 13451, 13997, 15233, 15443, 15803, 15887, 17957, 18701, 19961, 20681, 21701, 22031, 22073, 24371, 24473, 24683
Offset: 1

Views

Author

Keywords

Comments

p=1, q=2(prime), a=3, b=4, c=5, s=12-+1 primes, ...

Crossrefs

Programs

  • Mathematica
    lst={};Do[p=n;q=p+1;a=q^2-p^2;c=q^2+p^2;b=2*p*q;ar=a*b/2;s=a+b+c;If[PrimeQ[s-1]&&PrimeQ[s+1],If[PrimeQ[q],AppendTo[lst,q]]],{n,8!}];lst
Showing 1-2 of 2 results.