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

A215658 Primes p such that the smallest positive integer k for which p# + k is square satisfies p# + k = k^2, where p# = 2*3*5*7*11*...*p is a primorial.

Original entry on oeis.org

2, 3, 5, 7, 17
Offset: 1

Views

Author

Jonathan Sondow, Sep 02 2012

Keywords

Comments

The corresponding values of k are 2, 3, 6, 15, 715 = A215659.
The equation p# + k = k^2 has an integer solution k if and only if 1 + 4*p# is a square.
Conjecture: Not the same sequence as A192579, which is finite.
When p is in this sequence, p# = k(k-1) is in A161620, the intersection of A002110 and A002378. - Jeppe Stig Nielsen, Mar 27 2018

Examples

			The smallest square > 17# = 510510 is 715^2 = 17# + 715, so 17 is a member.
		

Crossrefs

Programs

  • Mathematica
    t = {}; pm = 1; Do[pm = pm*p; s = Floor[Sqrt[pm]]; If[pm == s*(s+1), AppendTo[t, p]], {p, Prime[Range[100]]}]; t (* T. D. Noe, Sep 05 2012 *)
  • PARI
    for (n=1, 10, if (ceil(sqrt(prod(i=1, n, prime(i))))^2 - prod(i=1, n, prime(i)) - ceil(sqrt(prod(i=1, n, prime(i)))) == 0, print(prime(n)));); \\ Michel Marcus, Sep 05 2012
    
  • Python
    from sympy import primorial, integer_nthroot, prime
    A215658_list = [prime(i) for i in range(1,10**2) if integer_nthroot(4*primorial(i)+1,2)[1]] # Chai Wah Wu, Apr 01 2021

Formula

A145781(n) = A216144(n) if and only if prime(n) is a member.
a(n)# = A215659(n)*(A215659(n)-1).

A192578 Primes p for which there is no prime q == 1 (mod 4) that is smaller than p and is a quadratic residue modulo p.

Original entry on oeis.org

2, 3, 5, 7, 13, 37
Offset: 1

Views

Author

Jonathan Sondow, Jul 04 2011

Keywords

Comments

Gica proved that if p is a prime different from 2, 3, 5, 7, 13, 37, then there exists a prime q < p which is a quadratic residue modulo p and q == 1 (mod 4).

Examples

			p = 7 is a member, because the only prime q < p with q == 1 (mod 4) is q = 5, but 5 is not a quadratic residue modulo 7.
11 is not a member, because 11 > 5 == 1 (mod 4) and 5 == 4^2 (mod 11).
		

References

  • A. Gica, Quadratic residues of certain types, Rocky Mt. J. Math. 36 (2006), 1867-1871.

Crossrefs

Cf. A192579.

Programs

  • Mathematica
    maxPrimePi = 100; nextPrime[q_] := If[q1 = NextPrime[q]; Mod[q1, 4] != 1, nextPrime[q1], q1]; foundQ[p_] := (q = 2; found = False; While[q < p, q = nextPrime[q]; If[JacobiSymbol[q, p] == 1, found = True; Break[]]]; found); Select[ Prime[ Range[ maxPrimePi]], Not[foundQ[#]] &] (* Jean-François Alcover, Oct 18 2011 *)

A193063 Primes p for which there is no prime q == 1 (mod 3) that is smaller than p and is a quadratic residue modulo p.

Original entry on oeis.org

2, 3, 5, 7, 11, 13
Offset: 1

Views

Author

Jonathan Sondow, Jul 15 2011

Keywords

Comments

Gica proved that if p is a prime different from 2, 3, 5, 7, 11, 13, then a prime q < p exists which is a quadratic residue modulo p and q == 1 (mod 3). His paper has not yet been published, but see A192578 for a reference, link, and examples of a similar result.

Crossrefs

Programs

  • Mathematica
    piMax = 100; quadQ[q_, p_] := Length[ Select[ Table[x^2, {x, 1, Floor[p/2]}], Mod[#, p] == q & , 1]] == 1; noPrimeQ[p_] := Select[ Table[ Prime[n], {n, 1, PrimePi[p]}], Mod[#, 3] == 1 && quadQ[#, p] &] === {}; Select[ Table[ Prime[n], {n, 1, piMax}], noPrimeQ] (* Jean-François Alcover, Oct 03 2011 *)

A193064 Primes p for which there is no prime q == 2 (mod 3) that is smaller than p and is a quadratic residue modulo p.

Original entry on oeis.org

2, 3, 5, 13
Offset: 1

Views

Author

Jonathan Sondow, Jul 15 2011

Keywords

Comments

Gica proved that if p is a prime different from 2, 3, 5, 13, then a prime q < p exists which is a quadratic residue modulo p and q == 2 (mod 3). His paper has not yet been published, but see A192578 for a reference, link, and examples of a similar result.

Crossrefs

A295266 Positive integers whose squares can be represented as the sum or difference of 3-smooth numbers.

Original entry on oeis.org

1, 2, 3, 5, 7, 17
Offset: 1

Views

Author

Tomohiro Yamada, Nov 19 2017

Keywords

Comments

In Chapter 7 of de Weger's tract, it is shown that there are no other terms.
More generally, de Weger exposited how one can determine all squares which can be represented as the sum or difference of k-smooth numbers for any given k and determined all integers whose squares can be represented as the sum or difference of 7-smooth numbers, among which the largest one is 14117^2 = 199289869 = 3^13 * 5^3 - 2 * 7^3.

Examples

			a(6) = 17 ; 17^2 = 288 + 1 = 2^5 * 3^2 + 1.
		

Crossrefs

Cf. A003586 (3-smooth numbers).
Coincides with A192579 and A215658 except the term 1.
Showing 1-5 of 5 results.