login

Revision History for A288718

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Primes of the form k!5+1, where k!5 is the quintuple factorial number (A085157).
(history; published version)
#5 by N. J. A. Sloane at Tue Jun 13 23:02:22 EDT 2017
STATUS

proposed

approved

#4 by Robert Price at Tue Jun 13 21:28:23 EDT 2017
STATUS

editing

proposed

#3 by Robert Price at Tue Jun 13 21:28:17 EDT 2017
LINKS

Robert Price, <a href="/A288718/b288718.txt">Table of n, a(n) for n = 1..28</a>

#2 by Robert Price at Tue Jun 13 21:28:00 EDT 2017
NAME

allocated for Robert PricePrimes of the form k!5+1, where k!5 is the quintuple factorial number (A085157).

DATA

2, 3, 5, 7, 37, 67, 313, 751, 2857, 129169, 576577, 17873857, 54286849, 393750001, 643458817, 19053977918977, 206180145819649, 11716249122484566383298871297, 177636555893291390456871518209, 49055724379818682505120501943238657

OFFSET

1,1

LINKS

Henri& Renaud Lifchitz, <a href="http://www.primenumbers.net/prptop/searchform.php?form=n5+1&amp;action=Search">PRP Records.Search for n!5+1.</a>

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>

OpenPFGW Project, <a href="http://sourceforge.net/projects/openpfgw/">Primality Tester</a>

MATHEMATICA

MultiFactorial[n_, k_] := If[n<1, 1, n*MultiFactorial[n-k, k]];

Select[Table[MultiFactorial[i, 5] + 1, {i, 0, 100}], PrimeQ[#]&]

CROSSREFS

Cf. A085148.

KEYWORD

allocated

nonn

AUTHOR

Robert Price, Jun 13 2017

STATUS

approved

editing

#1 by Robert Price at Tue Jun 13 21:28:00 EDT 2017
NAME

allocated for Robert Price

KEYWORD

allocated

STATUS

approved