cp's OEIS Frontend

A039716 a(n) = prime(n)!.

%I A039716 #42 Feb 21 2022 01:03:25
%S A039716 2,6,120,5040,39916800,6227020800,355687428096000,121645100408832000,
%T A039716 25852016738884976640000,8841761993739701954543616000000,
%U A039716 8222838654177922817725562880000000,13763753091226345046315979581580902400000000,33452526613163807108170062053440751665152000000000
%N A039716 a(n) = prime(n)!.
%C A039716 Subsequence of A000142.
%H A039716 Vincenzo Librandi, <a href="/A039716/b039716.txt">Table of n, a(n) for n = 1..88</a>
%F A039716 a(n) = A000142(A000040(n)).
%F A039716 a(n) = A177946(n)*A000142(n). - _Reinhard Zumkeller_, May 15 2010
%F A039716 Sum_{n>=1} 1/a(n) = A100124. - _Amiram Eldar_, Nov 13 2020
%p A039716 A039716 := proc(n)
%p A039716     ithprime(n)! ;
%p A039716 end proc:
%p A039716 seq(A039716(n),n=1..10) ; # _R. J. Mathar_, Aug 01 2014
%t A039716 Table[Prime[n]!,{n,1,8}] (* _Vladimir Joseph Stephan Orlovsky_, Apr 27 2008 *)
%o A039716 (Sage)
%o A039716 BB = primes_first_n(14)
%o A039716 L = []
%o A039716 for i in range(13):
%o A039716     L.append(factorial(BB[i]))
%o A039716 L # _Zerinvary Lajos_, May 14 2007
%o A039716 (PARI) a(n)=prime(n)! \\ _Charles R Greathouse IV_, Feb 07 2012
%o A039716 (Magma) [Factorial(NthPrime(n)): n in [1..20]]; // _Vincenzo Librandi_, Apr 21 2014
%Y A039716 Cf. A000040, A000142, A100124, A177946.
%K A039716 nonn,easy,nice
%O A039716 1,1
%A A039716 _Labos Elemer_