A288886 Primes of the form k!3 + 3^10, where k!3 is the triple factorial number (A007661).
59051, 59053, 59077, 59929, 608667049, 3091650738235049, 262134882788466747049, 17994728558292550488813850298696914425610240059049, 113024723205613715155108333435313153533542400059049
Offset: 1
Keywords
Links
- Robert Price, Table of n, a(n) for n = 1..13
- Henri and Renaud Lifchitz, PRP Records.Search for n!3+3^10.
- Joe McLean, Interesting Sources of Probable Primes.
- OpenPFGW Project, Primality Tester.
Programs
-
Mathematica
MultiFactorial[n_, k_] := If[n<1, 1, n*MultiFactorial[n-k, k]]; Select[Table[MultiFactorial[i, 3] + 3^10, {i, 0, 100}], PrimeQ[#]&] Select[Table[Times@@Range[n,1,-3]+59049,{n,150}],PrimeQ] (* Harvey P. Dale, May 03 2020 *)