|
%I #11 Nov 12 2023 11:33:55
%S 2,2,5,25,17281,207361,696729601,12541132801,115880067072001,
%T 1366643159020339200001,40999294770610176000001,
%U 1854768736099424576471040000001,109950690675973888893203251200000001
%N a(n) = prime(n)! / prime(n)# + 1.
%H Reinhard Zumkeller, <a href="/A103890/a103890.txt">p(n)!/p(n )#+1</a>
%F a(n) = A039716(n)/A002110(n)+1 = A092435(n)+1.
%t #[[1]]/#[[2]]&/@With[{nn=15},Thread[{Prime[Range[nn]]!,FoldList[ Times,Prime[ Range[nn]]]}]]+1 (* _Harvey P. Dale_, May 21 2019 *)
%o (PARI) a(n) = prime(n)!/vecprod(primes(n)) + 1; \\ _Michel Marcus_, Nov 12 2023
%Y Cf. A103891, A103892, A103893, A103894, A103895, A103896, A103855.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Feb 20 2005
|
