%I #42 Feb 21 2022 01:03:25

%S 2,6,120,5040,39916800,6227020800,355687428096000,121645100408832000,

%T 25852016738884976640000,8841761993739701954543616000000,

%U 8222838654177922817725562880000000,13763753091226345046315979581580902400000000,33452526613163807108170062053440751665152000000000

%N a(n) = prime(n)!.

%C Subsequence of A000142.

%H Vincenzo Librandi, <a href="/A039716/b039716.txt">Table of n, a(n) for n = 1..88</a>

%F a(n) = A000142(A000040(n)).

%F a(n) = A177946(n)*A000142(n). - _Reinhard Zumkeller_, May 15 2010

%F Sum_{n>=1} 1/a(n) = A100124. - _Amiram Eldar_, Nov 13 2020

%p A039716 := proc(n)

%p ithprime(n)! ;

%p end proc:

%p seq(A039716(n),n=1..10) ; # _R. J. Mathar_, Aug 01 2014

%t Table[Prime[n]!,{n,1,8}] (* _Vladimir Joseph Stephan Orlovsky_, Apr 27 2008 *)

%o (Sage)

%o BB = primes_first_n(14)

%o L = []

%o for i in range(13):

%o L.append(factorial(BB[i]))

%o L # _Zerinvary Lajos_, May 14 2007

%o (PARI) a(n)=prime(n)! \\ _Charles R Greathouse IV_, Feb 07 2012

%o (Magma) [Factorial(NthPrime(n)): n in [1..20]]; // _Vincenzo Librandi_, Apr 21 2014

%Y Cf. A000040, A000142, A100124, A177946.

%K nonn,easy,nice

%O 1,1

%A _Labos Elemer_