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

A085692 Brocard's problem: squares which can be written as n!+1 for some n.

Original entry on oeis.org

25, 121, 5041
Offset: 1

Views

Author

Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Jul 18 2003

Keywords

Comments

Next term, if it exists, is greater than 10^850. - Sascha Kurz, Sep 22 2003
No more terms < 10^20000. - David Wasserman, Feb 08 2005
The problem of whether there are any other terms in this sequence, Brocard's problem, has been unsolved since 1876. The known calculations give a(4) > (10^9)! = factorial(10^9). - Stefan Steinerberger, Mar 19 2006
I wrote a similar program sieving against the 40 smallest primes larger than 4*10^9 and can report that a(4) > factorial(4*10^9+1). In other words, it's now known that the only n <= 4*10^9 for which n!+1 is a square are 4, 5 and 7. C source code available on request. - Tim Peters (tim.one(AT)comcast.net), Jul 02 2006
Robert Matson claims to have verified that 4, 5, and 7 are the only values of n <= 10^12 for which n!+1 is a square. This implies that the next term, if it exists, is greater than (10^12+1)! ~ 1.4*10^11565705518115. - David Radcliffe, Oct 28 2019

Examples

			   5^2 =   25 = 4! + 1;
  11^2 =  121 = 5! + 1;
  71^2 = 5041 = 7! + 1.
		

References

  • R. Guy, "Unsolved Problems in Number Theory", 3rd edition, D25
  • Clifford A. Pickover, A Passion for Mathematics (2005) at 69, 306.
  • James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, page 19.

Crossrefs

A085692, A146968, A216071 are all essentially the same sequence. - N. J. A. Sloane, Sep 01 2012

Programs

  • Mathematica
    Select[Range[0,100]!+1,IntegerQ[Sqrt[#]] &] (* Stefano Spezia, Jul 02 2025 *)
  • PARI
    A085692=select( issquare, vector(99,n,n!+1)) \\ M. F. Hasler, Nov 20 2018

Formula

a(n) = A216071(n)^2 = A146968(n)!+1 = A038507(A146968(n)). - M. F. Hasler, Nov 20 2018

A146968 Brocard's problem: positive integers n such that n!+1 = m^2.

Original entry on oeis.org

4, 5, 7
Offset: 1

Views

Author

Marco Bellaccini (marcomurk(AT)tele2.it), Nov 03 2008

Keywords

Comments

No other terms below 10^9.
See A085692 for more comments and references. - M. F. Hasler, Nov 20 2018

Examples

			7! + 1 = 5041 = 71^2, hence 7 is in the sequence. - _Klaus Brockhaus_, Nov 05 2008
		

Crossrefs

A085692, A146968, A216071 are all essentially the same sequence. - N. J. A. Sloane, Sep 01 2012

Programs

  • Magma
    [ : n in [1..8047] | t where t,p:=IsSquare(Factorial(n)+1) ]; // Klaus Brockhaus, Nov 05 2008
    
  • Mathematica
    Select[Range[10],IntegerQ[Sqrt[#!+1]]&] (* Harvey P. Dale, Jan 31 2015 *)
  • PARI
    { for (n=1, 60100, if(issquare(n!+1) == 1, print(n) ) ) } \\ Marco Bellaccini (marcomurk(AT)tele2.it), Nov 08 2008
  • Shell
    #!/bin/sh n=0 while(true) do n=`echo $n + 1 | bc` calc "($n! + 1)" ^ "(1 / 2)" | grep -v \. done
    

Extensions

Edited by Max Alekseyev, Feb 06 2010

A232802 Number of solution pairs (x,y) for x <= 11 such that x! + n = y^2 (Brocard-Ramanujan Diophantine equation) is soluble over the integers.

Original entry on oeis.org

3, 1, 2, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 2, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 1, 1, 1, 0
Offset: 1

Views

Author

Frank M Jackson, Nov 30 2013

Keywords

Comments

The Mathematica program will find the number of integer pairs (x,y) solving x!+n = y^2 for each n from 1 to 200 with x not exceeding 11. Dabrowski showed that the abc conjecture implies only finite solutions for each n. Berndt and Galway found that 11 was the highest value that x reached for a solution with n in the range 1 to 2500 and could find no further solution pairs (x,y) in that range even when x was increased to 10^5.
For n = 1 the number of solutions and arbitrary x is Brocard's problem, and it is conjectured - but verified only in the range x <= 10^12 - that there are 3 solution pairs (x,y): (4,5), (5,11), (7,71). - Georg Fischer, Nov 27 2020

Crossrefs

Cf. A085692, A146968, A216071 (Brocard's problem; all essentially the same sequence).

Programs

  • Mathematica
    Table[Length@Select[Sqrt[Range[11]!+n], IntegerQ[#] &], {n, 1, 200}]

Extensions

Definition narrowed by Georg Fischer, Nov 27 2020

A321883 Nonnegative integers n for which n! + 1 is not a square.

Original entry on oeis.org

0, 1, 2, 3, 6, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69
Offset: 1

Views

Author

Felix Fröhlich, Nov 20 2018

Keywords

Comments

Complement of A146968 = positive integers n such that n!+1 is a square (Brocard's problem, so far {4, 5, 7} are the only known terms).
A weak form of Szpiro's conjecture implies that there are only finitely many nonnegative integers that are not in the sequence (cf. Overholt, 1993).

Crossrefs

Programs

  • Mathematica
    Select[Range[0,100], !IntegerQ[Sqrt[#!+1]] &] (* Amiram Eldar, Nov 21 2018 *)
  • PARI
    select( is(n)=!issquare(n!+1), [0..99]) \\ M. F. Hasler, Nov 20 2018
Showing 1-4 of 4 results.