login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A120609 Primes among the absolute value of numbers of the form f(x)= x^2 + x - 1354363. 0
1354361, 1354343, 1354333, 1354321, 1354307, 1354291, 1354231, 1354207, 1354181, 1354153, 1354057, 1354021, 1353983, 1353901, 1353857, 1353763, 1353713, 1353607, 1353551, 1353433, 1353371, 1353241, 1353173, 1352957 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

The number of primes of this form for x <= 10000 is 5356. So the probability that a random 0 < x <= 10000 produces a prime in abs(f(x)) is greater than 1/2. The authors in the reference cite an amusing implication. "If you can remember a phone number 1354363, then you have a mental mnemonic for generating thousands of primes." The authors also note that the polynomial f(x) = x^2 + x - 1354363, was found by [Dress and Oliver 1999].

REFERENCES

R. Crandall and C. Pomerance, Prime Numbers A Computational Perspective, Springer Verlag 2002, p. 49, exercise 1.17.

LINKS

Table of n, a(n) for n=1..24.

EXAMPLE

f(1) = 1+1-1354363 = -1354361. Absolute value of -1354361 = 1354361.

MATHEMATICA

Select[Table[Abs[n^2+n-1354363], {n, 0, 100}], PrimeQ] (* Arkadiusz Wesolowski, Mar 06 2011 *)

PROG

(PARI) g(n) = { c=0; for(x=0, n, y=abs(x^2 + x - 1354363); if(isprime(y), c++; print1(y", "))); print(c", "c/n+.0) }

CROSSREFS

Sequence in context: A234727 A184661 A187961 * A094914 A138027 A222155

Adjacent sequences:  A120606 A120607 A120608 * A120610 A120611 A120612

KEYWORD

easy,nonn,less

AUTHOR

Cino Hilliard, Aug 17 2006

EXTENSIONS

Offset corrected by Arkadiusz Wesolowski, Mar 02 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified December 6 08:47 EST 2021. Contains 349563 sequences. (Running on oeis4.)