cp's OEIS Frontend

A288717 Primes of the form k!7+1, where k!7 is the septuple factorial number (A114799).

%I A288717 #7 Dec 23 2022 18:46:13
%S A288717 2,3,5,7,19,31,61,79,12241,19801,29641,76561,379441,2016841,2756161,
%T A288717 1838865601,4150656721,337767408001,956960801281,21617114112001,
%U A288717 1534815101952001,9590944392057601,30891838760640001,119715577952256001,767275551364608001
%N A288717 Primes of the form k!7+1, where k!7 is the septuple factorial number (A114799).
%H A288717 Robert Price, <a href="/A288717/b288717.txt">Table of n, a(n) for n = 1..46</a>
%H A288717 Henri& Renaud Lifchitz, <a href="http://www.primenumbers.net/prptop/searchform.php?form=n7+1&amp;action=Search">PRP Records.Search for n!7+1.</a>
%H A288717 Joe McLean, <a href="http://web.archive.org/web/20091027034731/http://uk.geocities.com/nassarawa%40btinternet.com/probprim2.htm">Interesting Sources of Probable Primes</a>
%H A288717 OpenPFGW Project, <a href="http://sourceforge.net/projects/openpfgw/">Primality Tester</a>
%t A288717 MultiFactorial[n_, k_] := If[n<1, 1, n*MultiFactorial[n-k, k]];
%t A288717 Select[Table[MultiFactorial[i, 7] + 1, {i, 0, 100}], PrimeQ[#]&]
%t A288717 Select[Table[Times@@Range[n,1,-7]+1,{n,100}],PrimeQ] (* _Harvey P. Dale_, Dec 23 2022 *)
%Y A288717 Cf. A156165.
%K A288717 nonn
%O A288717 1,1
%A A288717 _Robert Price_, Jun 13 2017