This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A333372 #5 Feb 16 2025 08:33:59 %S A333372 1,2,2,14,110,1526,20858,388718,7614806,183489830,5561422394, %T A333372 174355099682,6611001621542,274364327631194,11859712864132730, %U A333372 562348710109678226,30121397642062848278,1792060484721674304638,109581661931207939415266,7388364108380826136619810 %N A333372 a(n) = prime(n)# - Sum_{k=1..n-1} prime(k)# * a(n-k), where prime()# = A002110. %H A333372 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Primorial.html">Primorial</a> %H A333372 <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a> %F A333372 G.f.: 2 - 1 / (Sum_{k>=0} prime(k)# * x^k). %t A333372 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 A333372 Cf. A000698, A002110, A003319, A030018, A167894, A307364. %K A333372 nonn %O A333372 0,2 %A A333372 _Ilya Gutkovskiy_, Mar 17 2020