A154664 - OEIS

A154664

Numbers n such that n!^2-+7493 are primes.

3, 4, 5, 6, 12

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

Next term is larger than 72

Next term is larger than 1000. - Harvey P. Dale, Feb 03 2016

LINKS

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

MATHEMATICA

lst={}; a=7493; Do[If[PrimeQ[n!^2-a]&&PrimeQ[n!^2+a], AppendTo[lst, n]], {n, 3*4!}]; lst

Select[Range[20], AllTrue[(#!)^2+{7493, -7493}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 03 2016 *)

CROSSREFS

Cf. A144046, A154660, A154661, A154662, A154663

Sequence in context: A356050 A299299 A103402 * A371242 A366743 A191750

Adjacent sequences: A154661 A154662 A154663 * A154665 A154666 A154667

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Jan 13 2009

STATUS

approved