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

A136071 Father primes of order 2.

Original entry on oeis.org

19, 29, 59, 89, 149, 239, 269, 359, 419, 449, 509, 569, 659, 839, 1259, 1289, 1319, 1409, 1559, 1949, 2099, 2309, 2339, 2399, 2459, 2549, 2609, 2789, 2819, 2939, 2969, 2999, 3089, 3209, 3299, 3389, 3719, 3989, 4049, 4139, 4289, 4409, 4649, 4889, 4919
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524.

Links

Crossrefs

Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136072, A136073, A136074, A136075, A136076, A136077, A136078, A136079, A136080.

Programs

  • Mathematica
    n = 2; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a

A136072 Father primes of order 3.

Original entry on oeis.org

41, 83, 97, 139, 167, 223, 293, 307, 419, 433, 503, 587, 727, 769, 797, 1049, 1063, 1217, 1259, 1399, 1483, 1567, 1609, 1637, 1693, 1847, 1889, 1973, 1987, 2477, 2617, 2659, 2687, 2729, 2939, 2953, 3023, 3037, 3079, 3359, 3499, 3527, 3793, 3947, 3989
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

Primes of the form 7p+6 where p is prime. - David Radcliffe, Nov 30 2015

Links

Crossrefs

For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524. For father primes of order 2 see A136071.
Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136073, A136074, A136075, A136076, A136077, A136078, A136079, A136080.

Programs

  • Maple
    select(t -> isprime(t) and isprime((t-6)/7), [seq(i,i=13..10000, 14)]); # Robert Israel, Nov 30 2015
  • Mathematica
    n = 3; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a

Extensions

Typo in Mathematica program fixed by David Radcliffe, Nov 30 2015

A136073 Father primes of order 4.

Original entry on oeis.org

53, 71, 107, 179, 269, 431, 557, 647, 719, 809, 881, 971, 1151, 1187, 1259, 1367, 1511, 1619, 1637, 1907, 2069, 2267, 2447, 2861, 3041, 3581, 3617, 3779, 3797, 4049, 4157, 4211, 4391, 4877, 4931, 5021, 5147, 5399, 5417, 5471, 5939, 6101, 6317, 6389, 6551
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524. For father primes of order 2 see A136071. For father primes of order 3 see A136072.

Links

Crossrefs

Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136072, A136074, A136075, A136076, A136077, A136078, A136079, A136080.

Programs

  • Mathematica
    n = 4; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a

A136074 Father primes of order 5.

Original entry on oeis.org

43, 131, 197, 263, 461, 593, 659, 1187, 1451, 1847, 1913, 1979, 2111, 2837, 2903, 2969, 4289, 4421, 4751, 5081, 5147, 5279, 5741, 6203, 6269, 6599, 7127, 7193, 7457, 7523, 7919, 8513, 9041, 9239, 9437, 9767, 10427, 10691, 11351, 11549, 11681, 12011
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524. For father primes of order 2 see A136071. For father primes of order 3 see A136072. For father primes of order 4 see A136073.

Links

Crossrefs

Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136072, A136073, A136075, A136076, A136077, A136078, A136079, A136080.

Programs

  • Mathematica
    n = 5; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a

A136075 Father primes of order 6.

Original entry on oeis.org

103, 181, 233, 311, 389, 571, 701, 883, 1039, 1091, 1429, 1481, 1663, 1949, 2053, 2131, 2339, 2521, 2963, 3041, 3119, 3613, 3691, 3821, 4003, 4133, 4523, 4549, 4679, 4783, 4861, 5641, 5849, 5953, 6343, 6551, 7253, 7331, 7643, 8059, 8423, 8501, 8761
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524. For father primes of order 2 see A136071. For father primes of order 3 see A136072. For father primes of order 4 see A136073. For father primes of order 5 see A136074.

Links

Crossrefs

Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136072, A136073, A136074, A136076, A136077, A136078, A136079, A136080.

Programs

  • Mathematica
    n = 6; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a

A136076 Father primes of order 7.

Original entry on oeis.org

59, 89, 179, 269, 359, 449, 479, 569, 659, 719, 809, 929, 1019, 1109, 1259, 1559, 1619, 1709, 1979, 2069, 2099, 2459, 2609, 2699, 2729, 2879, 2909, 2969, 2999, 3359, 3449, 3779, 4049, 4079, 4229, 4259, 4409, 4679, 5309, 5399, 5519, 5849, 6029, 6299, 6329
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524. For father primes of order 2 see A136071. For father primes of order 3 see A136072. For father primes of order 4 see A136073. For father primes of order 5 see A136074. For father primes of order 6 see A136075.

Links

Crossrefs

Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136072, A136073, A136074, A136075, A136077, A136078, A136079, A136080.

Programs

  • Mathematica
    n = 7; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a

A136077 Father primes of order 8.

Original entry on oeis.org

67, 101, 509, 1019, 1223, 1427, 1733, 2243, 2549, 2957, 4079, 4283, 4793, 5303, 6833, 7547, 7649, 7853, 8363, 8669, 9587, 9689, 11117, 11933, 12239, 12647, 12953, 15809, 16217, 18869, 19583, 20297, 20807, 21419, 21929, 22133, 23357, 24683, 25703
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524. For father primes of order 2 see A136071. For father primes of order 3 see A136072. For father primes of order 4 see A136073. For father primes of order 5 see A136074. For father primes of order 6 see A136075. For father primes of order 7 see A136075.

Links

Crossrefs

Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136072, A136073, A136074, A136075, A136076, A136078, A136079, A136080.

Programs

  • Mathematica
    n = 8; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a

A136079 Father primes of order 10.

Original entry on oeis.org

83, 167, 251, 293, 419, 503, 797, 881, 1259, 1301, 1427, 1511, 1553, 1889, 2141, 2267, 2309, 2393, 2687, 2897, 2939, 3191, 3527, 3779, 3821, 4073, 4157, 4451, 4703, 4787, 5039, 5081, 5417, 5669, 5711, 6173, 6551, 6971, 7307, 7349, 7433, 7559, 7727, 7853
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest father primes of order n, see A136026 (also definition). For father primes of orders 1,2,...,9, see A094524, A136071, A136072, A136073, A136074, A136075, A136076, A136077, A136078, respectively.
From Bob Selcoe, Apr 25 2014: (Start)
In general, a father prime, p', of order k is of the form p'=2k+(2k+1)*p for some prime, p. In this sequence, k=10, and so each prime is of the form p'=20+21p where p ranges over {3,7,11,13,19,23,...}. Thus a father prime p' has order k when (p'-2k)/(2k+1) is prime.
Father primes (p') of order k will be of the form: p'(mod (4k+2))=4k+1, or p'=(4k+2)*j-1, j>=2. For this sequence: k=10, 4k+2=42; j={2,4,6,7,10,12,...}. So for example, j=7 generates a father prime because 42*7-1 = 293 AND (293-(2*10))/(2*10+1) = 13, since both 13 and 293 are prime. Note that not all j such that (4k+2)*j-1 is prime will produce a father prime. In this example, when j=11, 42*11-1=461 (prime); but (461-(2*10))/(2*10+1) = 21 (not prime). (End)

Links

Crossrefs

Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136072, A136073, A136074, A136075, A136076, A136077, A136078, A136080.

Programs

  • Mathematica
    n = 10; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a

A136080 Father primes of order 11.

Original entry on oeis.org

137, 1103, 1931, 2069, 2621, 3449, 3863, 4001, 4139, 5381, 5519, 6761, 8831, 8969, 10211, 13109, 13523, 13799, 15731, 18353, 19319, 21803, 23321, 23459, 25253, 25391, 28151, 28289, 28979, 29531, 29669, 31601, 32429, 32843, 33119, 34361
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524. For father primes of order 2 see A136071. For father primes of order 3 see A136072. For father primes of order 4 see A136073. For father primes of order 5 see A136074. For father primes of order 6 see A136075. For father primes of order 7 see A136076. For father primes of order 8 see A136077. For father primes of order 9 see A136078. For father primes of order 10 see A136079.

Links

Crossrefs

Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136072, A136073, A136074, A136075, A136076, A136077, A136078, A136079.

Programs

  • Mathematica
    n = 11; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a
Showing 1-9 of 9 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.