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.

Previous Showing 11-20 of 23 results. Next

A136091 Son primes of order 14.

Original entry on oeis.org

5, 11, 17, 41, 71, 89, 101, 137, 149, 167, 197, 239, 251, 257, 269, 317, 347, 401, 431, 449, 461, 521, 569, 617, 641, 659, 677, 701, 719, 839, 881, 1031, 1049, 1091, 1109, 1277, 1289, 1367, 1427, 1439, 1487, 1499, 1571, 1601, 1637, 1667, 1721, 1847, 1871
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest son primes of order n see A136027 (also definition). For son primes of order 1 see A023208. For son primes of order 2 see A023218. For son primes of order 3 see A023225. For son primes of order 4 see A023235. For son primes of order 5 see A136082. For son primes of order 6 see A136083. For son primes of order 7 see A136084. For son primes of order 8 see A136085. For son primes of order 9 see A136086. For son primes of order 10 see A136087. For son primes of order 11 see A136088. For son primes of order 12 see A136089. For son primes of order 13 see A136090.

Crossrefs

Programs

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

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.

Crossrefs

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

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.

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.

Crossrefs

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.

Crossrefs

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.

Crossrefs

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.

Crossrefs

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.

Crossrefs

Programs

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

A136078 Father primes of order 9.

Original entry on oeis.org

113, 151, 227, 379, 569, 607, 797, 911, 1291, 1367, 1709, 1861, 2089, 2621, 2659, 2887, 3001, 3191, 3457, 3761, 4027, 4597, 4787, 5167, 5281, 5851, 5927, 6421, 6991, 7219, 7561, 7789, 8017, 9689, 10601, 10867, 11171, 11399, 11437, 11551, 11779
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.

Crossrefs

Programs

  • Mathematica
    n = 9; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a
    Select[Prime[Range[1500]],PrimeQ[(#-18)/19]&] (* Harvey P. Dale, Mar 26 2023 *)

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)

Crossrefs

Programs

  • Mathematica
    n = 10; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a
Previous Showing 11-20 of 23 results. Next