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.

A124165 Primes p such that (2^p + 2^((p+1)/2) + 1)/5 is prime.

Original entry on oeis.org

7, 17, 89, 1223, 5479, 11257, 11519, 12583, 23081, 36479, 52567, 52919, 125929, 365689, 1127239, 1148729, 4533073
Offset: 1

Views

Author

Alexander Adamchuk, Dec 02 2006, Dec 04 2006

Keywords

Comments

PrimePi[ a(n) ] = {4, 7, 24, 200, 724, 1361, 1389, 1503, 2578, 3868, 5368, 5400, 11814, 31200, ...}.
3 terms found by David Broadhurst in Nov 2006: {36479, 52567, 52919}.
Only 2 terms found by Jean Penne in Nov 2006 belong to a(n): {125929, 365689}.
5 other numbers found by Jean Penne in Nov 2006 belong to related sequence of primes p such that (2^p - 2^((p+1)/2) + 1)/5 is prime: {221891, 235099, 305867, 311027, 333227}.
All terms belong to A124112 = {5, 7, 9, 11, 13, 17, 29, 43, 53, 89, 283, 557, 563, 613, 691, 1223, 2731, ...} (numbers k such that ((1+i)^k+1)/(2+i) is a Gaussian prime).
The terms 1127239 and 1148729 were found by Borys Jaworski in 2006-2007. - Alexander Adamchuk, Jun 20 2007

Crossrefs

Cf. A124112 (numbers k such that ((1+i)^k+1)/(2+i) is a Gaussian prime).

Programs

  • Mathematica
    Do[p=Prime[n];f=(2^p+2^((p+1)/2)+1)/5;If[PrimeQ[f],Print[{n,p}]],{n,1,200}]

Extensions

a(17) from Serge Batalov, Mar 31 2014

A125742 Primes p such that (2^p - 2^((p+1)/2) + 1)/5 is prime.

Original entry on oeis.org

5, 11, 13, 29, 43, 53, 283, 557, 563, 613, 691, 2731, 5147, 5323, 9533, 10771, 221891, 235099, 305867, 311027, 333227, 792061, 1347781, 1669219, 1882787, 2305781
Offset: 1

Views

Author

Alexander Adamchuk, Dec 04 2006

Keywords

Comments

PrimePi[ a(n) ] = {3, 5, 6, 10, 14, 16, 61, 102, 103, 112, 125, 399, 686, 705, 1180, 1312, 19768, 20843, 26482, 26882, 28656, ...}. (2^p - 2^((p+1)/2) + 1) is the Aurifeuillan cofactor of 4^p + 1, where p is odd prime. All a(n) belong to A124112(n) = {5, 7, 9, 11, 13, 17, 29, 43, 53, 89, 283, 557, 563, 613, 691, 1223, 2731, ...} Numbers n such that ((1+I)^n+1)/(2+I) is a Gaussian prime. 5 largest currently known terms found by Jean Penne in Nov 2006: {221891, 235099, 305867, 311027, 333227}.

Crossrefs

Cf. A124165 (primes p such that (2^p + 2^((p+1)/2) + 1)/5 is prime).
Cf. A124112 (numbers n such that ((1+i)^n+1)/(2+i) is a Gaussian prime).

Programs

  • Mathematica
    Do[p=Prime[n];f=(2^p-2^((p+1)/2)+1)/5;If[PrimeQ[f],Print[{PrimePi[p],p}]],{n,1,28656}]
  • PARI
    is(p)=isprime(p)&&ispseudoprime((2^p - 2^((p+1)/2) + 1)/5) \\ Charles R Greathouse IV, May 15 2013

Extensions

a(23-25) = 1347781, 1669219, 1882787 were found by Borys Jaworski between 2008 and 2012 (see the PRP Records link). - Alexander Adamchuk, Nov 27 2008
a(22) = 792061 was found out-of-sequence by Thomas Ritschel in March of 2014 (see the PRP Records link). - Serge Batalov, Mar 31 2014
a(26) = 2305781 from Serge Batalov, Mar 31 2014

A239842 Numbers n such that the Eisenstein integer ((1-ω)^n+1)/(2-ω) has prime norm, where ω = - 1/2 + sqrt(-3)/2.

Original entry on oeis.org

5, 11, 31, 37, 47, 53, 97, 163, 167, 509, 877, 1061, 2027, 2293, 3011, 6803, 8423, 13627, 20047, 28411, 50221, 50993, 71453, 152809, 272141, 505823, 1353449
Offset: 1

Views

Author

Serge Batalov, Mar 27 2014

Keywords

Comments

These numbers are sometimes called Eisenstein-Mersenne cofactors EQ(n).
The p-th Eisenstein-Mersenne cofactor can be written as EQ(p) = (3^p + Legendre(3, p) * 3^((p + 1)/2) + 1)/7.
Following an idea of Harsh Aggarwal, some of these numbers have been discovered as by-products of the search for prime Eisenstein-Mersenne norms. The reason of that is the Aurifeuillan factorization of T(k) = 3^(3k) + 1 with k odd. These numbers can be written as T(k) = (3^k + 1)*EM(k)*EQ(k)*7, EM(k) is the norm of the Eisenstein-Mersenne (1-ω)^k-1, while EQ(k) is the norm of ((1-ω)^a[n]+1)/(2-ω).
These numbers have been proved prime only up to exponent a(19) = 20047.
Next term a(28) > 1500000.

Examples

			For n = 3: ((1-ω)^31+1)/(2-ω) is an Eisenstein prime because its norm, (3^31-3^16+1)/7 = 88239050462461, is prime.
		

Crossrefs

Cf. A125743 = Primes p such that (3^p - 3^((p+1)/2) + 1)/7 is prime.
Cf. A125744 = Primes p such that (3^p + 3^((p+1)/2) + 1)/7 is prime.
Cf. A066408 = Numbers n such that the Eisenstein integer has prime norm.
Cf. A124112 = Numbers n such that ((1+I)^n+1)/(2+I) is a Gaussian prime.

Programs

  • PARI
    forprime(n=3,2300,if(ispseudoprime((3^n+kronecker(3,n)*3^((n+1)/2)+1)/7),print1(n ", "))); /* Serge Batalov, Mar 29 2014 */
Showing 1-3 of 3 results.