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 51-60 of 94 results. Next

A319250 Numbers k such that 24k + 11 and 24k + 13 are a pair of twin primes in A001122.

Original entry on oeis.org

0, 2, 7, 14, 17, 27, 34, 60, 67, 69, 84, 94, 144, 160, 167, 170, 177, 199, 282, 284, 289, 314, 342, 345, 367, 392, 419, 420, 422, 437, 452, 510, 525, 580, 599, 609, 619, 669, 674, 707, 724, 739, 797, 854, 865, 875, 895, 899, 900, 942, 952, 959, 984, 1004, 1080
Offset: 1

Views

Author

Jianing Song, Sep 15 2018

Keywords

Comments

Numbers k such that 24k + 11 and 24k + 13 are both in A001122. See A319248 and A319249 for detailed information.

Examples

			11 and 13 are a pair of twin primes both having 2 as a primitive root, so 0 is a term.
59 and 61 are a pair of twin primes both having 2 as a primitive root, so 2 is a term.
Although 227 and 229 are a pair of twin primes, neither of them has 2 as a primitive root, so 9 is not a term.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[0, 1080], PrimeQ[24*# + 11] && PrimeQ[24*# + 13] && PrimitiveRoot[24*# + 11] == 2 && PrimitiveRoot[24*# + 13] == 2 &] (* Amiram Eldar, May 02 2023 *)
  • PARI
    for(k=0, 1000, if(znorder(Mod(2,24*k+11))==24*k+10 && znorder(Mod(2,24*k+13))==24*k+12, print1(k, ", ")))

Formula

a(n) = (A319248(n+1) - 11)/24 = (A319249(n+1) - 13)/24.

A321995 Indices of highly composite numbers A002182 which are between a twin prime pair.

Original entry on oeis.org

3, 4, 5, 9, 11, 12, 20, 28, 30, 84, 108, 118, 143, 149, 208, 330, 362, 1002, 2395, 3160, 10535
Offset: 1

Views

Author

M. F. Hasler, Jun 23 2019

Keywords

Comments

The highly composite numbers are listed in A068507, but their growth is such that one cannot list the terms beyond A002182(362), corresponding to a(17), in the DATA section.
The term a(21) corresponds to A002182(10535) = A108951(52900585920). - Daniel Suteu, Jun 27 2019
a(22) > 779674, if it exists. - Amiram Eldar, Dec 03 2020

Crossrefs

Programs

  • PARI
    select( x->ispseudoprime(x-1)&&ispseudoprime(x+1), A2182, 1) \\ assuming A2182 holds enough terms of A002182. - M. F. Hasler, Jun 23 2019

Formula

Intersection of A306587 and A306588. - Daniel Suteu, Jun 27 2019

Extensions

a(21) from Daniel Suteu, Jun 27 2019 (obtained from A. Flammenkamp's data)

A060211 Larger term of a pair of twin primes such that the prime factors of their average are only 2 and 3. Proper subset of A058383.

Original entry on oeis.org

7, 13, 19, 73, 109, 193, 433, 1153, 2593, 139969, 472393, 786433, 995329, 57395629, 63700993, 169869313, 4076863489, 10871635969, 2348273369089, 56358560858113, 79164837199873, 84537841287169, 150289495621633, 578415690713089, 1141260857376769, 57711166318706689
Offset: 1

Views

Author

Labos Elemer, Mar 20 2001

Keywords

Comments

Larger of twin primes p such that p-1 = (2^u)*(3^w), u,w >= 1.

Examples

			a(4) = 73, {71,73} are twin primes and (71 + 73)/2 = 72 = 2*2*2*3*3.
		

Crossrefs

Programs

  • Mathematica
    Take[Select[Sort[Flatten[Table[2^a 3^b,{a,250},{b,250}]]],AllTrue[#+{1,-1},PrimeQ]&]+1,23] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Apr 17 2019 *)
  • PARI
    isok(p) = isprime(p) && isprime(p-2) && (vecmax(factor(p-1)[,1]) == 3); \\ Michel Marcus, Sep 05 2017

Formula

a(n) = A027856(n+1) + 1. - Amiram Eldar, Mar 17 2025

Extensions

Name corrected by Sean A. Irvine, Oct 31 2022

A100923 a(n) = 1 iff 6*n+1 and 6*n-1 are both prime numbers (0 otherwise).

Original entry on oeis.org

1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0
Offset: 1

Views

Author

Joseph Biberstine (jrbibers(AT)indiana.edu), Nov 22 2004

Keywords

Comments

Characteristic function of A002822. - Georg Fischer, Aug 04 2021

Examples

			a(3) = 1 because 6*3-1=17 and 6*3+1=19 are both prime.
a(4) = 0 because 6*4-1=23 is prime and 6*4+1=25 is not prime.
a(20) = 0 because 6*20-1=119 and 6*20+1=121 are both not prime.
		

Crossrefs

Programs

  • Mathematica
    Table[If[And[PrimeQ[6*k - 1], PrimeQ[6*k + 1]], 1, 0], {k, 1, 110}]

A182483 a(n) is the least m such that A182482(m) = A001359(n), the n-th twin prime.

Original entry on oeis.org

1, 2, 3, 5, 7, 10, 4, 17, 9, 23, 25, 15, 8, 11, 19, 20, 45, 47, 13, 29, 14, 24, 77, 87, 95, 50, 103, 107, 22, 27, 137, 46, 143, 21, 34, 43, 175, 59, 91, 48, 41, 71, 215, 31, 44, 119, 121, 247, 62, 67, 54, 139, 283, 287, 149, 39, 313, 161, 65, 37, 169, 347, 116
Offset: 2

Views

Author

Vladimir Shevelev, May 01 2012

Keywords

Comments

a(n) exists for every n>=2.

Crossrefs

Programs

  • Mathematica
    t = Table[k = 0; While[p = 6*k*n - 1; ! (PrimeQ[p] && PrimeQ[p + 2]), k++]; p, {n, 1000}]; tp = Select[Prime[Range[1000]], PrimeQ[# + 2] &]; t2 = {}; found = True; n = 2; While[found, pos = Position[t, tp[[n]], 1, 1]; If[pos == {}, found = False, AppendTo[t2, pos[[1, 1]]]; n++]]; t2 (* T. D. Noe, May 02 2012 *)

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

Original entry on oeis.org

0, 1, 2, 2, 1, 2, 2, 3, 3, 1, 4, 4, 3, 5, 3, 1, 1, 4, 5, 6, 3, 1, 4, 4, 3, 2, 2, 3, 3, 5, 3, 6, 5, 1, 6, 1, 4, 6, 4, 1, 6, 7, 8, 6, 2, 2, 5, 8, 4, 4, 3, 3, 7, 8, 3, 5, 3, 4, 6, 7, 8, 9, 5, 2, 3, 2, 4, 7, 5, 2, 2, 6, 6, 8, 5, 1, 6, 2, 6, 7, 3, 3, 8, 8, 6, 5, 2, 5, 6, 9, 9, 5, 4, 1, 7, 2, 3, 9, 6, 3
Offset: 1

Views

Author

Zhi-Wei Sun, Feb 02 2014

Keywords

Comments

Conjecture: (i) a(n) > 0 for all n > 1. Also, any n > 12 can be written as k + m (k > 0 and m > 2) with 6*k - 1, 6*k + 1 and k + phi(m)/2 all prime.
(ii) Each integer n > 34 can be written as p + q (q > 0) with p and p + phi(q) both prime. Also, any integer n > 14 can be written as p + q (q > 2) with p, p + 6 and p + phi(q)/2 all prime.
Clearly, part (i) of the conjecture implies that any integer n > 1 can be written as p + m - phi(m), where p is a prime and m is a positive integer.

Examples

			a(17) = 1 since 17 = 7 + 10 with 6*7 - 1 = 41, 6*7 + 1 = 43 and 7 + phi(10) = 7 + 4 = 11 all prime.
a(486) = 1 since 486 = 325 + 161 with 6*325 - 1 = 1949, 6*325 + 1 = 1951 and 325 + phi(161) = 325 + 132 = 457 all prime.
		

Crossrefs

Programs

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

A307561 Numbers k such that both 6*k - 1 and 6*k + 5 are prime.

Original entry on oeis.org

1, 2, 3, 4, 7, 8, 9, 14, 17, 18, 22, 28, 29, 32, 38, 39, 42, 43, 44, 52, 58, 59, 64, 74, 77, 84, 93, 94, 98, 99, 107, 108, 109, 113, 137, 143, 147, 157, 158, 162, 163, 169, 182, 183, 184, 197, 198, 203, 204, 213, 214, 217, 227, 228, 238, 239, 247, 248, 249, 259, 267, 268, 269, 312, 317, 318, 329, 333, 344
Offset: 1

Views

Author

Sally Myers Moite, Apr 14 2019

Keywords

Comments

There are 146 terms below 10^3, 831 terms below 10^4, 5345 terms below 10^5, 37788 terms below 10^6 and 280140 terms below 10^7.
Prime pairs differing by 6 are called "sexy" primes. Other prime pairs with difference 6 are of the form 6n + 1 and 6n + 7.
Numbers in this sequence are those which are not 6cd + c - d - 1, 6cd + c - d, 6cd - c + d - 1 or 6cd - c + d, that is, they are not (6c - 1)d + c - 1, (6c - 1)d + c, (6c + 1)d - c - 1 or (6c + 1)d - c.

Examples

			a(2) = 2, so 6(2) - 1 = 11 and 6(2) + 5 = 17 are both prime.
		

Crossrefs

Primes differing from each other by 6 are A023201, A046117.
Similar sequences for twin primes are A002822, A067611, for "cousin" primes A056956, A186243.
Intersection of A024898 and A059325.
Cf. also A307562, A307563.

Programs

  • Mathematica
    Select[Range[500], PrimeQ[6# - 1] && PrimeQ[6# + 5] &] (* Alonso del Arte, Apr 14 2019 *)
  • PARI
    is(k) = isprime(6*k-1) && isprime(6*k+5); \\ Jinyuan Wang, Apr 20 2019

A307562 Numbers k such that both 6*k + 1 and 6*k + 7 are prime.

Original entry on oeis.org

1, 2, 5, 6, 10, 11, 12, 16, 17, 25, 26, 32, 37, 45, 46, 51, 55, 61, 62, 72, 76, 90, 95, 100, 101, 102, 121, 122, 125, 137, 142, 146, 165, 172, 177, 181, 186, 187, 205, 215, 216, 220, 237, 241, 242, 247, 257, 270, 276, 277, 282, 290, 291, 292, 296, 297, 310, 311, 312, 331, 332, 335, 347, 355, 356, 380, 381, 390
Offset: 1

Views

Author

Sally Myers Moite, Apr 14 2019

Keywords

Comments

There are 138 such numbers between 1 and 1000.
Prime pairs that differ by 6 are called "sexy" primes. Other prime pairs that differ by 6 are of the form 6n - 1 and 6n + 5.
Numbers in this sequence are those which are not 6cd - c - d - 1, 6cd - c - d, 6cd + c + d - 1 or 6cd + c + d, that is, they are not (6c - 1)d - c - 1, (6c - 1)d - c, (6c + 1)d + c - 1 or (6c + 1)d + c.

Examples

			a(3) = 5, so 6(5) + 1 = 31 and 6(5) + 7 = 37 are both prime.
		

Crossrefs

For the primes see A023201, A046117.
Similar sequences for twin primes are A002822, A067611, for "cousin" primes A056956, A186243.
Intersection of A024899 and A153218.
Cf. also A307561, A307563.

Programs

  • Mathematica
    Select[Range[400], AllTrue[6 # + {1, 7}, PrimeQ] &] (* Michael De Vlieger, Apr 15 2019 *)
  • PARI
    isok(n) = isprime(6*n+1) && isprime(6*n+7); \\ Michel Marcus, Apr 16 2019

A307563 Numbers k such that both 6k - 1 and 6k + 7 are prime.

Original entry on oeis.org

1, 2, 4, 5, 9, 10, 12, 15, 17, 22, 25, 29, 32, 39, 44, 45, 60, 65, 67, 72, 75, 80, 82, 94, 95, 99, 100, 109, 114, 117, 120, 124, 127, 137, 152, 155, 164, 169, 172, 177, 185, 194, 199, 204, 205, 214, 215, 220, 229, 240, 242, 247, 254, 260, 262, 267, 269, 270, 289, 304, 312, 330, 334, 347, 355, 359, 369, 374, 379, 389
Offset: 1

Views

Author

Sally Myers Moite, Apr 14 2019

Keywords

Comments

There are 140 such numbers between 1 and 1000.
These numbers correspond to all the prime pairs which differ by 8 except 3 and 11.
Numbers in this sequence are those which are not 6cd - c - d - 1, 6cd + c - d, 6cd - c + d or 6cd + c + d - 1, that is, they are not (6c - 1)d - c - 1, (6c - 1)d + c, (6c + 1)d - c or (6c + 1)d + c - 1.

Examples

			a(4) = 5, so 6(5) - 1 = 29 and 6(5) + 7 = 37 are both prime.
		

Crossrefs

The primes are A023202, A092402, A031926.
Similar sequences for twin primes are A002822, A067611, for "cousin" primes A056956, A186243.
Intersection of A024898 and A153218.
Cf. also A307561, A307562.

Programs

  • Maple
    select(t -> isprime(6*t-1) and isprime(6*t+7), [$1..500]); # Robert Israel, May 27 2019
  • PARI
    isok(n) = isprime(6*n-1) && isprime(6*n+7); \\ Michel Marcus, Apr 16 2019

A066542 Nonnegative integers all of whose anti-divisors are either 2 or odd.

Original entry on oeis.org

3, 4, 5, 7, 8, 11, 13, 16, 17, 19, 23, 29, 31, 32, 37, 41, 43, 47, 53, 59, 61, 64, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251
Offset: 1

Views

Author

John W. Layman, Jan 07 2002

Keywords

Comments

See A066272 for definition of anti-divisor.
The following conjectures have been proved by Bob Selcoe. - Michael Somos, Feb 28 2014
Additional conjectures suggested by computational experiments:
1) Numbers all of whose anti-divisors (AD's) are odd => {2^k} (A000079).
2) Numbers with AD 2, all other AD's odd => primes (A000040).
3) Numbers none of whose AD's are multiples of 3 => 3*2^k (A007283).
4) Numbers all of whose AD's are even => 3*A002822 = A040040 (except for a(0)=1), both related to twin prime pairs.
Calculations suggest the following conjecture. This sequence consists of all odd primes and nonnegative powers of 2 and no other terms. This has been verified for to n=100000. Robert G. Wilson v extended the conjecture out to 2^20.
From Bob Selcoe, Feb 24 2014: (Start)
The sequence consists of all odd primes and powers of two (>=2^2) and no other terms.
Proof: Denote the even anti-divisors of n as ADe(n). ADe(n) is defined as the set of numbers x satisfying the equation n(mod x)=x/2. Substitute x = 2n/y, since it can be shown that ADe(n) => 2n divided by the odd divisors of n when n>1 (This is because 2j anti-divides only numbers of the form 3j+2j*k; j>=1, k>=0. For example: j=7; 14 anti-divides only 21,35,49,63.... So in other words, even numbers anti-divide only odd multiples (>=3) of themselves, divided by 2). Therefore, ADe(n) is n(mod [2n/y])=n/y, and y must be an odd divisor of n and 2n, y>1. Since y is the only odd divisor of n when y>1 iff n is prime, then ADe(n) => 2 when n is prime. Since 2n has no odd divisors when n=2^k, then ADe(n) is null when n=2^k. Therefore, the only numbers whose anti-divisors are either 2 or odd must be primes and powers of 2.
Similarly, for odd anti-divisors (ADo(n)): Given 2j+1 (odd numbers) anti-divide only numbers of the forms [(3j+1)+(2j+1)*k] and [(3j+2)+(2j+1)*k]; j>=1, k>=0. (For example: j=6; 13 anti-divides only 19,20, 32,33, 45,46...). Since odd n divided by its odd divisors ARE its odd divisors, then ADo(n) => the divisors of 2n-1 and 2n+1 (except 1, 2n-1 and 2n+1).
By extension:
1) Numbers all of whose anti-divisors (AD's) are odd => {2^k} (A000079).
2) Numbers with ADe(n)=2, all other AD's odd => primes (A000040).
3) Numbers none of whose AD's are multiples of j => j*2^k.
4) When 2n-1 and 2n+1 are twin primes, (A040040, except for a(0)=1) then n has only even AD's.
(End)
If 1 and 2 are included, this sequence contains all positive integers not contained in A111774. - Bob Selcoe, Sep 09 2014 [corrected by Wolfdieter Lang, Nov 06 2020]

Examples

			From _Bob Selcoe_, Feb 24 2014: (Start)
ADe(420): Odd divisors of 420 are: 3,5,7,15,21,35, 105. ADe(420) => 840/{3,5,7,15,21,35,105} = 8,24,40,56,120,168 and 280.
ADo(420) => the divisors of 839 and 841, which are (a) for 839: null (839 is prime); and (b) for 841: 29 (841 is 29^2).
All AD's (AD(420)) => 8,24,29,40,56,120,168 and 280 (End)
		

Crossrefs

Programs

  • Mathematica
    antid[n_] := Select[ Union[ Join[ Select[ Divisors[2n - 1], OddQ[ # ] && # != 1 &], Select[ Divisors[2n + 1], OddQ[ # ] && # != 1 &], 2n / Select[ Divisors[2*n], OddQ[ # ] && # != 1 &]]], # < n & ]; f[n_] := Select[ antid[n], EvenQ[ # ] && # > 2 & ]; Select[ Range[3, 300], f[ # ] == {} & ]
Previous Showing 51-60 of 94 results. Next