|
%I #4 Mar 17 2020 21:19:04
%S 1,2,2,14,110,1526,20858,388718,7614806,183489830,5561422394,
%T 174355099682,6611001621542,274364327631194,11859712864132730,
%U 562348710109678226,30121397642062848278,1792060484721674304638,109581661931207939415266,7388364108380826136619810
%N a(n) = prime(n)# - Sum_{k=1..n-1} prime(k)# * a(n-k), where prime()# = A002110.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Primorial.html">Primorial</a>
%H <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%F G.f.: 2 - 1 / (Sum_{k>=0} prime(k)# * x^k).
%t primorial[n_] := Product[Prime[k], {k, 1, n}]; a[n_] := a[n] = primorial[n] - Sum[primorial[k] a[n - k], {k, 1, n - 1}]; Table[a[n], {n, 0, 19}]
%Y Cf. A000698, A002110, A003319, A030018, A167894, A307364.
%K nonn
%O 0,2
%A _Ilya Gutkovskiy_, Mar 17 2020
|
