[go: up one dir, main page]

login

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 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Search: a139201 -id:a139201
     Sort: relevance | references | number | modified | created      Format: long | short | data
Numbers n such that (n!-2)/2 is a prime.
+10
20
3, 4, 5, 6, 9, 31, 41, 373, 589, 812, 989, 1115, 1488, 1864, 1918, 4412, 4686, 5821, 13830
OFFSET
1,1
EXAMPLE
(4!-2)/2 = 11 is a prime.
MATHEMATICA
Select[Range[0, 14000], PrimeQ[(#! - 2) / 2] &] (* Vincenzo Librandi, Feb 18 2015 *)
PROG
(PARI) xfactpk(n, k=2) = { for(x=2, n, y = (x!-k)/k; if(isprime(y), print1(x", ")) ) }
(Magma) [n: n in [1..600]| IsPrime((Factorial(n)-2) div 2)]; // Vincenzo Librandi, Feb 18 2015
KEYWORD
hard,more,nonn
AUTHOR
Cino Hilliard, May 18 2003
EXTENSIONS
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008
Edited by T. D. Noe, Oct 30 2008
STATUS
approved
Numbers k such that (k!-4)/4 is prime.
+10
20
4, 5, 6, 7, 8, 10, 15, 18, 23, 157, 165, 183, 184, 362, 611, 908, 2940, 6875, 9446, 16041
OFFSET
1,1
COMMENTS
Numbers k such that (k!-m)/m is prime:
for m=1 see A002982
for m=2 prime or pseudoprime see A082671
for m=3 see A139056
for m=4 see A139199
for m=5 see A139200
for m=6 see A139201
for m=7 see A139202
for m=8 see A139203
for m=9 see A139204
for m=10 see A139205
a(17) > 2000 - Ray G. Opao, Sep 30 2008
a(21) > 25000 - Robert Price, Sep 25 2016
MATHEMATICA
a = {}; Do[If[PrimeQ[(n! - 4)/4], Print[a]; AppendTo[a, n]], {n, 1, 184}]; a (*Artur Jasinski*)
PROG
(PARI) is(n)=n>3 && isprime(n!/4-1) \\ Charles R Greathouse IV, Apr 29 2015
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Artur Jasinski, Apr 11 2008
EXTENSIONS
a(15)-a(16) from Ray G. Opao, Sep 30 2008
a(17) from Serge Batalov, Feb 18 2015
a(18)-a(20) from Robert Price, Sep 25 2016
STATUS
approved
Primes of the form k! / 6 - 1.
+10
3
3, 19, 839, 6719, 6652799, 14529715199, 3487131647999, 59281238015999, 1067062284287999, 405483668029439999, 10069210510562305939559188678085666251210751999999999, 5069015533618896340602101361010794807396273594826751999999999999
OFFSET
1,1
MATHEMATICA
Select[Table[k! / 6 - 1, {k, 4, 100}], PrimeQ[#]&]
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Robert Price, Jul 19 2017
EXTENSIONS
3, 19 inserted by Georg Fischer, Dec 05 2024
STATUS
approved

Search completed in 0.006 seconds