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-3 of 3 results.

A098418 Number of prime triples (p,q,r) with p

Original entry on oeis.org

0, 0, 1, 2, 3, 3, 3, 2, 1, 0, 0, 1, 2, 2, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 2, 3, 3, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 2, 1, 0, 1, 2, 2, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 2, 2, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 07 2004

Keywords

Comments

0 <= a(n) <= 3;
a(A098419(n))=0; a(A098420(n))>0; a(A098421(n))=1; a(A098422(n))=2; a(A098423(n))=3.

Examples

			A000040(13)=41: A007529(7)=41, A098414(6)=41 and
A098415(k)<>41 for all k, therefore a(13)=2.

Links

Crossrefs

Cf. A007529, A098414, A098415.

A098421 Primes occurring in exactly one prime triple (p,q,r) with p

Original entry on oeis.org

5, 23, 37, 47, 67, 71, 73, 97, 113, 191, 199, 223, 233, 277, 281, 283, 307, 317, 347, 349, 353, 457, 467, 613, 617, 619, 641, 643, 647, 821, 829, 853, 863, 877, 887, 1087, 1097, 1277, 1279, 1283, 1297, 1307, 1423, 1433, 1447, 1451, 1453, 1481, 1493, 1607, 1609
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 07 2004

Keywords

Comments

A098418(a(n)) = 1; subsequence of A098420.

Links

Crossrefs

Cf. A098419, A098422, A098423.

A098422 Primes occurring in exactly two prime triples (p,q,r) with p

Original entry on oeis.org

7, 19, 41, 43, 101, 109, 193, 197, 227, 229, 311, 313, 461, 463, 823, 827, 857, 859, 881, 883, 1091, 1093, 1301, 1303, 1427, 1429, 1483, 1489, 1871, 1877, 1997, 1999, 2083, 2087, 2687, 2689, 3253, 3257, 3461, 3467, 4517, 4519, 4787, 4789, 5231, 5233, 5651
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 07 2004

Keywords

Comments

A098418(a(n)) = 2; subsequence of A098420.

Links

Crossrefs

Cf. A098419, A098421, A098423.

Programs

  • Mathematica
    Select[Tally[Flatten[Select[Partition[Prime[Range[800]],3,1],#[[3]]- #[[1]] == 6&]]],#[[2]]==2&][[All,1]] (* Harvey P. Dale, Jun 01 2019 *)
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.