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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A084438 Positive integers n such that n!!! - 1 = A007661(n) - 1 is prime. 59

%I

%S 3,4,6,8,20,26,36,50,60,114,135,138,248,315,351,429,642,5505,8793,

%T 12086,13580,23109,34626,34706,56282,57675,58298

%N Positive integers n such that n!!! - 1 = A007661(n) - 1 is prime.

%C The search for multifactorial primes started by Ray Ballinger is now continued by a team of volunteers on the website of Ken Davis (see link).

%H Ken Davis, <a href="http://mfprimes.free-dc.org">Status of Search for Multifactorial Primes.</a>

%H Ken Davis, <a href="http://mfprimes.free-dc.org/mfdata/f03m.html">Results for n!3-1.</a>

%H ProthSearch.net (on web.archive.org), <a href="http://web.archive.org/web/20050220234200/http://www.prothsearch.net/n3minus.txt">n3minus.txt</a>

%e a(4)=8 since 8!!!-1 = 8*5*2-1 = 79 is the 4th prime of that form.

%e 26!!!-1 = 2504902399 is prime.

%t multiFactorial[n_, k_] := If[n < 1, 1, n * multiFactorial[n - k, k]];

%t Select[Range[0, 1000], PrimeQ[multiFactorial[#, 3] - 1] & ] (* _Robert Price_, Apr 19 2019 *)

%t Select[Range[650], PrimeQ[Times @@ Range[#, 1, -3] - 1] &] (* The program generates the first 17 terms of the sequence. To generate more, change the Range constant but the program may take a long time to run. *) (* _Harvey P. Dale_, May 22 2021 *)

%o (PARI) A007661(n) = prod(i=1,(n-1)\3,n-=3,n+!n) /* newline */ for(n=1,999,if(isprime(A007661(n)-1),print1(n","))) - _M. F. Hasler_, Nov 26 2007

%Y Cf. A007661, A135726, A037082, A037083.

%K hard,nonn

%O 1,1

%A _Hugo Pfoertner_, Jun 25 2003

%E Missing 26 inserted by _M. F. Hasler_, Nov 26 2007

%E More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 03 2008

%E Edited by _N. J. A. Sloane_, Feb 11 2009 at the suggestion of M. F. Hasler

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 July 25 02:57 EDT 2021. Contains 346282 sequences. (Running on oeis4.)