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 41-50 of 61 results. Next

A236462 Primes p with prime(p) + 4 and prime(p) + 6 both prime.

Original entry on oeis.org

19, 59, 151, 181, 211, 229, 389, 571, 877, 983, 1039, 1259, 1549, 3023, 3121, 3191, 3259, 3517, 3719, 4099, 4261, 4463, 5237, 6947, 7529, 7591, 7927, 7933, 8317, 8389, 8971, 9403, 9619, 10163, 10939, 11131, 11717, 11743, 11839, 12301
Offset: 1

Views

Author

Zhi-Wei Sun, Jan 26 2014

Keywords

Comments

According to the conjecture in A236460, this sequence should have infinitely many terms.
See A236464 for a similar sequence.

Examples

			a(1) = 19 with 19, prime(19) + 4 = 71 and prime(19) + 6 = 73 all prime.
		

Crossrefs

Programs

  • Mathematica
    p[n_]:=p[n]=PrimeQ[Prime[n]+4]&&PrimeQ[Prime[n]+6]
    n=0;Do[If[p[Prime[m]],n=n+1;Print[n," ",Prime[m]]],{m,1,10000}]
    Select[Prime[Range[1500]],AllTrue[Prime[#]+{4,6},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 21 2018 *)
  • PARI
    s=[]; forprime(p=2, 12500, if(isprime(prime(p)+4) && isprime(prime(p)+6), s=concat(s, p))); s \\ Colin Barker, Jan 26 2014

A186634 Irregular triangle, read by rows, giving dense patterns of n primes.

Original entry on oeis.org

0, 2, 0, 2, 6, 0, 4, 6, 0, 2, 6, 8, 0, 2, 6, 8, 12, 0, 4, 6, 10, 12, 0, 4, 6, 10, 12, 16, 0, 2, 6, 8, 12, 18, 20, 0, 2, 8, 12, 14, 18, 20, 0, 2, 6, 8, 12, 18, 20, 26, 0, 2, 6, 12, 14, 20, 24, 26, 0, 6, 8, 14, 18, 20, 24, 26, 0, 2, 6, 8, 12, 18, 20, 26, 30, 0, 2, 6, 12, 14, 20, 24, 26, 30, 0, 4, 6, 10, 16, 18, 24, 28, 30, 0, 4, 10, 12, 18, 22, 24, 28, 30, 0, 2, 6, 8, 12, 18, 20, 26, 30, 32, 0, 2, 6, 12, 14, 20, 24, 26, 30, 32
Offset: 2

Views

Author

T. D. Noe, Feb 24 2011

Keywords

Comments

The first pattern (0,2) is for twin primes (p,p+2). Row n contains A083409(n) patterns, each one consisting of 0 followed by n-1 terms. In each row the patterns are in lexicographic order.
These numbers (in a slightly different order) appear in Table 1 of the paper by Tony Forbes. Sequence A186702 gives the least prime starting a given pattern.

Examples

			The irregular triangle begins:
0, 2
0, 2, 6, 0, 4, 6
0, 2, 6, 8
0, 2, 6, 8, 12, 0, 4, 6, 10, 12
0, 4, 6, 10, 12, 16
0, 2, 6, 8, 12, 18, 20, 0, 2, 8, 12, 14, 18, 20
		

Crossrefs

A236460 Number of ordered ways to write n = k + m with k > 0 and m > 0 such that p = phi(k) + phi(m)/2 - 1, prime(p) + 4 and prime(p) + 6 are all prime, where phi(.) is Euler's totient function.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 2, 1, 0, 1, 2, 2, 2, 1, 1, 2, 0, 4, 1, 2, 1, 5, 2, 1, 3, 1, 1, 3, 2, 6, 3, 0, 2, 5, 5, 6, 3, 4, 5, 3, 4, 4, 4, 6, 3, 2, 6, 2, 3, 2, 10, 2, 3, 1, 6, 1, 4, 0, 2, 3, 4, 2, 4, 0, 4, 0, 3, 2, 3, 0, 4, 0, 1, 1, 4
Offset: 1

Views

Author

Zhi-Wei Sun, Jan 26 2014

Keywords

Comments

Conjecture: a(n) > 0 for all n > 211.
This implies that there are infinitely many primes p with {prime(p), prime(p) + 4, prime(p) + 6} a prime triple. See A236462 for such primes p.

Examples

			a(30) = 1 since 30 = 13 + 17 with phi(13) + phi(17)/2 - 1 = 19, prime(19) + 4 = 67 + 4 = 71 and prime(19) + 6 = 73 all prime.
a(831) = 1 since 831 = 66 + 765 with phi(66) + phi(765)/2 - 1 = 20 + 192 - 1 = 211, prime(211) + 4 = 1297 + 4 = 1301 and prime(211) + 6 = 1303 all prime.
		

Crossrefs

Programs

  • Mathematica
    p[n_]:=PrimeQ[n]&&PrimeQ[Prime[n]+4]&&PrimeQ[Prime[n]+6]
    f[n_,k_]:=EulerPhi[k]+EulerPhi[n-k]/2-1
    a[n_]:=Sum[If[p[f[n,k]],1,0],{k,1,n-3}]
    Table[a[n],{n,1,100}]

A372209 Primes p_1 where products m of k = 3 consecutive primes p_1..p_k are such that only p_1 < m^(1/k).

Original entry on oeis.org

3, 7, 13, 23, 31, 37, 47, 53, 61, 67, 73, 89, 97, 103, 113, 131, 139, 151, 157, 167, 173, 181, 193, 199, 211, 223, 233, 241, 251, 257, 263, 271, 277, 293, 307, 317, 337, 359, 367, 373, 389, 409, 421, 433, 449, 457, 467, 479, 491, 509, 523, 547, 557, 563, 577, 587
Offset: 1

Views

Author

Michael De Vlieger, Sep 11 2024

Keywords

Comments

Primes p such that the second differences of p and the next 2 primes is never positive.
Superset of A022005.
Does not intersect A022004.

Examples

			3 is in the sequence since m = 3*5*7 = 105 is such that 3 is less than the cube root of 105, but both 5 and 7 exceed it.
5 is not in the sequence because m = 5*7*11 = 385 is such that both 5 and 7 are less than the cube root.
7 is in the sequence since m = 7*11*13 = 1001 is such that 7 < 1001^(1/3), but both 11 and 13 are larger than 1001^(1/3), etc.
		

Crossrefs

Programs

  • Mathematica
    k = 3; s = {1}~Join~Prime[Range[k - 1]]; Reap[Do[s = Append[Rest[s], Prime[i + k - 1]]; r = Surd[Times @@ s, k]; If[Count[s, _?(# < r &)] == 1, Sow[Prime[i]] ], {i, 600}] ][[-1, 1]]

A201597 Initial prime in prime triples (p, p+4, p+6) preceding the maximal gaps in A201596.

Original entry on oeis.org

7, 13, 37, 103, 307, 457, 613, 2137, 2377, 2797, 3463, 4783, 5737, 9433, 14557, 24103, 45817, 52177, 126487, 317587, 580687, 715873, 2719663, 6227563, 8114857, 10085623, 10137493, 18773137, 21297553, 25291363, 43472497, 52645423, 69718147, 80002627, 89776327
Offset: 1

Views

Author

Alexei Kourbatov, Dec 03 2011

Keywords

Comments

Prime triples (p, p+4, p+6) are one of the two types of densest permissible constellations of 3 primes. Maximal gaps between triples of this type are listed in A201596; see more comments there.

Examples

			The gap of 6 between triples starting at p=7 and p=13 is the very first gap, so a(1)=7. The gap of 24 between triples starting at p=13 and p=37 is a maximal gap - larger than any preceding gap; therefore a(2)=13. The gap of 30 between triples at p=37 and p=67 is again a maximal gap, so a(3)=37. The next gap is smaller, so it does not contribute to the sequence.
		

Crossrefs

Cf. A022005 (prime triples p, p+4, p+6), A201596.

Programs

  • Mathematica
    DeleteDuplicates[{#[[1]],#[[2]]-#[[1]]}&/@Partition[Select[Prime[Range[ 5206000]],AllTrue[#+{4,6},PrimeQ]&],2,1],GreaterEqual[#1[[2]],#2[[2]]]&] [[All,1]] (* Harvey P. Dale, Aug 04 2022 *)

A292224 Irregular triangle read by rows. T(n, k) gives the number of admissible k-tuples from the interval of integers [0, 1, ..., n-1] starting with smallest tuple member 0.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 2, 1, 3, 2, 1, 4, 4, 1, 1, 4, 4, 1, 1, 5, 6, 2, 1, 5, 6, 2, 1, 6, 11, 8, 2, 1, 6, 11, 8, 2, 1, 7, 15, 14, 4, 1, 7, 15, 14, 4, 1, 8, 19, 20, 8, 1, 1, 8, 19, 20, 8, 1, 1, 9, 27, 39, 24, 5, 1, 9, 27, 39, 24, 5, 1, 10, 33, 54, 44, 16, 2, 1, 10, 33, 54, 44, 16, 2, 1, 11, 39, 69, 62, 26, 2, 1, 11, 39, 69, 62, 26, 2
Offset: 1

Views

Author

Wolfdieter Lang, Oct 09 2017

Keywords

Comments

The row lengths are given by A023193 (the rhobar function of Schinzel and Sierpiński called rho* by Hensley and Richards).
This irregular triangle has already been considered by Engelsma, see Table 2, for n=1..56, p. 27.
A k-tuple of integers B_k = [b_1, ..., b_k] with 0 = b_1 < b_2 < ... < b_k <= n-1 is called admissible if for each prime p there exists at least one congruence class modulo p which contains none of the B_k elements. (This corresponds to the alternative definition of Hensley and Richards, p. 378 (*) or Richards, p. 423, 1.5 Definition and (*).) Note that the definition of "admissibility" is translation invariant (see the Note by Richards, p. 424, which is obvious from the translation equivalence of complete residue systems modulo p). Therefore the interval I_n = [0, n-1] of length n has been chosen. The b_1 = 0 choice is conventional. Without this choice other admissible k-tuples are obtained by translation as long as b_k + a < n-1. E.g., for n = 8 and k = 3 the tuple [1, 5, 7] is admissible and a translation of the considered tuple [0, 4, 6].
Only primes p <= k have to be tested to decide on the admissibility of a B_k tuple because for larger k there is always some residue class which contains none of the k members of B_k.
Because p = 2 already forbids even and odd numbers to appear in B_k for k >= 2, one can for the admissibility test eliminate all odd numbers in the chosen I_n. Therefore, only Ieven_n:= [0, 2, ..., 2*floor((n-1)/2)] =: 2*[0, 1, ..., floor((n-1)/2)] need be considered. B_1 = [0] is admissible for all n >= 1.
Because only the interval Ieven_n is of relevance, there will occur repetitions for admissible tuples for n if n = 2*k+1 and n = 2*k+2.
With the set B_k(p) = B_k (mod p) := {0, b_1 (mod p), ..., b_k (mod p)} the criterion for admissibility can be written as p - #(B_k(p)) > 0, for all primes 3 <= p <= k (because there are p congruence classes defined by smallest nonnegative complete residue system [0, 1, ..., p-1]).
Admissible tuples (starting with 0) with least b_k - b_1 = b_k value give rise to prime k-constellations of diameter b_k. E.g., for k = 2 the admissible tuple [0, 4] does not lead to a prime 2-constellation for n >= 5; [0, 6] is out for n >= 7, ... . But there are two prime 3-constellations given by [0, 2, 6] and [0, 4, 6] for n >= 7.
Row sums are in A292225, that is, total number of admissible tuples starting with 0 from the interval I_n = [0, n-1].

Examples

			The irregular triangle begins:
n\k   1  2  3  4  5  6  7 ...
1:    1
2:    1
3:    1  1
4:    1  1
5:    1  2
6:    1  2
7:    1  3  2
8:    1  3  2
9:    1  4  4  1
10:   1  4  4  1
11:   1  5  6  2
12:   1  5  6  2
13:   1  6 11  8  2
14:   1  6 11  8  2
15:   1  7 15 14  4
16:   1  7 15 14  4
17:   1  8 19 20  8  1
18:   1  8 19 20  8  1
19:   1  9 27 39 24  5
20:   1  9 27 39 24  5
21:   1 10 33 54 44 16  2
22:   1 10 33 54 44 16  2
23:   1 11 39 69 62 26  2
24:   1 11 39 69 62 26  2
...
The first admissible k-tuples are (blanks within a tuple are here omitted):
n\k  1                2                                  3                       4  ...
1:  [0]
2:  [0]
3:  [0]  [0,2]
4:  [0]  [0,2]
5:  [0]  [[0,2], [0,4]]
6:  [0]  [[0,2], [0,4]]
7:  [0]  [[0,2], [0,4], [0,6]]          [[0,2,6], [0,4,6]]
8:  [0]  [[0,2], [0,4], [0,6]]          [[0,2,6], [0,4,6]]
9:  [0]  [[0,2], [0,4], [0,6], [0,8]]   [[0,2,6], [0,2,8], [0,4,6], [0,6,8]]  [0,2,6,8]
10: [0]  [[0,2], [0,4], [0,6], [0,8]]   [[0,2,6], [0,2,8], [0,4,6], [0,6,8]]  [0,2,6,8]
...
The first admissible k-tuples for prime k-constellations are:
n\k  1     2           3                 4                    5                       6  ...
1:  [0]
2:  [0]
3:  [0]  [0,2]
4:  [0]  [0,2]
5:  [0]  [0,2]
6:  [0]  [0,2]
7:  [0]  [0,2]  [[0,2,6], [0,4,6]]
8:  [0]  [0,2]  [[0,2,6], [0,4,6]]
9:  [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]
10: [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]
11: [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]
12: [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]
13: [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]   [[0,2,6,8,12],[0,4,6,10,12]]
14: [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]   [[0,2,6,8,12],[0,4,6,10,12]]
15: [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]   [[0,2,6,8,12],[0,4,6,10,12]]
16: [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]   [[0,2,6,8,12],[0,4,6,10,12]]
17: [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]   [[0,2,6,8,12],[0,4,6,10,12]] [0,4,6,10,12,16]
18: [0]  [0,2]  [[0,2,6], [0,4,6]]   [0,2,6,8]   [[0,2,6,8,12],[0,4,6,10,12]] [0,4,6,10,12,16]
...
-----------------------------------------------------------------------------------------------
T(7, 3) = 2 because Ieven_n = [0, 2, 4, 6], and the only admissible 3-tuples from this interval are [0, 2, 6] and [0, 4, 6]. For example, [0, 2, 4] is excluded because the set B_3 (mod 3) = {0, 1, 2}, thus #{0, 1, 2} = 3 and (p = 3) - 3 = 0, not > 0.
These two admissible 3-tuples both have diameter 6 and stand for prime 3-constellations for all n >= 7: p, p + 2, p + 6, and p, p + 4, p + 6. One of the Hardy-Littlewood conjectures is that there are in both cases infinitely many such prime triples. For the first members of such triples see A022004 and A022005.
		

Crossrefs

Formula

T(n, k) = number of admissible k-tuples B_k = [0, b_2, ..., b_k] (see the comment above) from the interval of integers Ieven_n:= [0, 2, ..., 2*floor((n-1)/2)].

A233435 Primes p in prime triples (p, p+4, p+6) at the end of the maximal gaps in A201596.

Original entry on oeis.org

13, 37, 67, 193, 457, 613, 823, 2377, 2683, 3163, 3847, 5227, 6547, 10267, 15643, 25303, 47143, 54493
Offset: 1

Views

Author

Alexei Kourbatov, Dec 09 2013

Keywords

Comments

Prime triples (p, p+4, p+6) are one of the two types of densest permissible constellations of 3 primes. Maximal gaps between triples of this type are listed in A201596; see more comments there.

Examples

			The gap of 6 between triples starting at p=7 and p=13 is the very first gap, so a(1)=13. The gap of 24 between triples starting at p=13 and p=37 is a maximal (record) gap - larger than any preceding gap; therefore a(2)=37. The gap of 30 between triples at p=37 and p=67 is again a record, so a(3)=67. The next gap is smaller, so a new term is not added to the sequence.
		

Crossrefs

A275516 Table read by rows: list of prime triples of the form (p, p+4, p+6).

Original entry on oeis.org

7, 11, 13, 13, 17, 19, 37, 41, 43, 67, 71, 73, 97, 101, 103, 103, 107, 109, 193, 197, 199, 223, 227, 229, 277, 281, 283, 307, 311, 313, 457, 461, 463, 613, 617, 619, 823, 827, 829, 853, 857, 859, 877, 881, 883, 1087, 1091, 1093, 1297, 1301, 1303, 1423, 1427, 1429
Offset: 1

Views

Author

Arkadiusz Wesolowski, Jul 31 2016

Keywords

Comments

A prime triple is a set of three prime numbers of the form (p, p+2, p+6) or (p, p+4, p+6).
Initial members p of prime triples of the form (p, p+4, p+6) are congruent to 7 or 13 (mod 30).
Also called prime triples of the second kind.

Examples

			The table starts:
7, 11, 13;
13, 17, 19;
37, 41, 43;
...
		

Crossrefs

Programs

  • Magma
    &cat[[p, p+4, p+6]: p in PrimesUpTo(1423) | p mod 30 in {7, 13} and IsPrime(p+4) and IsPrime(p+6)];
  • Mathematica
    Prime@ Range[#, # + 2] &@ PrimePi@ Select[Prime@ Range@ 240, Times @@ Boole@ PrimeQ[# + {4, 6}] > 0 &] // Flatten (* Michael De Vlieger, Aug 02 2016 *)

Formula

a(3*n-2) = A022005(n).

A357052 Distance from 10^n to the next prime triplet.

Original entry on oeis.org

4, 1, 1, 87, 267, 357, 33, 451, 2011, 2821, 10687, 2497, 5073, 5557, 15243, 7147, 7357, 7197, 6627, 9157, 26317, 25833, 39207, 56067, 6667, 32937, 70561, 106533, 597, 28503, 19167, 74551, 301711, 6747, 246871, 223353, 63057, 75183, 48513, 61323, 16107, 554287, 160141, 29821, 220711, 49441
Offset: 0

Views

Author

M. F. Hasler, Sep 14 2022

Keywords

Comments

Equivalently, least k > 0 such that either 10^n + k + {0, 2, 6} or 10^n + k + {0, 4, 6} are primes.
The initial term, index n = 0, is the only even term and the only case where the last member of the triplet has one digit more than the first member. The value a(0) = 4 correspond to the prime triplet (5, 7, 11). We do not consider the triplets (2, 3, 5) or (3, 5, 7) which come earlier but do not follow the standard pattern.

Examples

			(11, 13, 17) and (101, 103, 107) are the smallest 2-digit and 3-digit prime triplets, at distance a(1) = a(2) = 1 from 10^1 and 10^2, respectively.
(1087, 1091, 1093) is the smallest 4-digit prime triplet, at distance a(3) = 87 from 10^3.
a(6999) = 1141791245437 is the distance from 10^6999 to the smallest 7000 digit prime triplet, of the form (p, p+2, p+6).
		

Crossrefs

Cf. A007529 (start of prime triplets), A022004 and A022005 (start of prime triples {0,2,6} resp. {0,4,6}), A343635 (same for quintuplets).

Programs

  • Maple
    f:= proc(n) local p;
       for p from 10^n + 1 by 2 do
         if p mod 3 = 1 then if isprime(p) and isprime(p+4) and isprime(p+6) then return p-10^n fi
         elif p mod 3 = 2 and isprime(p) and isprime(p+2) and isprime(p+6) then
    return p-10^n
         fi
       od;
    end proc:
    f(0):= 4:
    map(f, [$0..45]); # Robert Israel, Sep 15 2022
    A357052 := proc(n) local p,q,r; p,q,r := 10^n,0,0; while p-r <> 6 do p,q,r := nextprime(p+1),p,q; od; r-10^n; end; # M. F. Hasler, Sep 15 2022
  • PARI
    A357052(n,q=-9,r=-9)=forprime(p=10^n,,p-r<7 && return(r-10^n);[q,r]=[p,q])

Formula

a(n) = min{ k>0 | 10^n + k + [0, 6] contains 3 primes }.
a(n) = min A007529 ∩ [10^n, oo) for n > 0.

A084931 Consider trajectory of n under repeated applications of the function f(x) = 'Sum of the prime factors of x (with multiplicity)' (see A029908). Sequence gives composite numbers n that end at a prime m that divides n and m is greater than any m's seen already.

Original entry on oeis.org

15, 21, 182, 494, 1219, 2852, 3182, 9782, 19339, 19982, 22454, 72836, 76814, 102134, 156782, 192182, 423182, 750979, 758894, 1364534, 1465454, 1548782, 2376182, 3379982, 4066934, 4204982
Offset: 1

Views

Author

Sven Simon, Jun 12 2003

Keywords

Comments

With a prime triple (p,p+4,p+6), the number a(n) = 2*p*(p+6) is always in the sequence, f( f( 2*p*(p+6) )) = f( 2*(p+4) ) = p+6. Such prime triples can be found in sequence A022005.
As long as two successive triples (p1,p1 + 4,p1 + 6) and (p2,p2 + 4,p2 + 6) of A022005 have p2 < 1.2*p1, no other numbers occur in the sequence between a(n1) and a(n2), this holds at least for larger p1 > 500. Other types of prime sets occurring in the sequence: (p,p+4,3p-4) with F( F( (p+4)*(3p-4))) = F( 4p ) = p + 4 (p,p+6,p+8) with F( F( 4*p*(p+8) )) = F( 2*(p+6) ) = p + 8.
Large examples of (p,p+4,++6)-triples: (108748629354*4436*3251#*(4436*3251#+1)+210)*(4436*3251#-1)/35 + 7, + 11, + 13 (4135 digits, David Broadhurst) (18599651274*4436*3251#*(4436*3251#+1)+210)*(4436*3251#-1)/35 + 7, + 11, +13 (4134 digits, David Broadhurst) Record examples of prime triples can be found on Tony Forbes's web site. There are triples of type (p,p+4,p+6) too.

Examples

			a(10) = 19982: f(f(19982)) = f(f(2*97*103)) = f(2+97+103) = f(202) = f(2*101) = 2+101 = 103.
		

Crossrefs

Cf. A022005, A048133, A084932 (primes reached).
Previous Showing 41-50 of 61 results. Next