cp's OEIS Frontend

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.

A342996 The number of partitions of the n-th primorial.

This page as a plain text file.
%I A342996 #22 Jul 07 2021 10:57:43
%S A342996 1,2,11,5604,9275102575355,
%T A342996 21565010821742923705373368869534441911701199887419
%N A342996 The number of partitions of the n-th primorial.
%H A342996 Alois P. Heinz, <a href="/A342996/b342996.txt">Table of n, a(n) for n = 0..7</a>
%F A342996 a(n) = A000041(A002110(n)).
%p A342996 b:= proc(n) b(n):= `if`(n=0, 1, b(n-1)*ithprime(n)) end:
%p A342996 a:= n-> combinat[numbpart](b(n)):
%p A342996 seq(a(n), n=0..5);
%t A342996 b[n_] := b[n] = If[n == 0, 1, b[n - 1]*Prime[n]];
%t A342996 a[n_] := PartitionsP[b[n]];
%t A342996 Table[a[n], {n, 0, 5}] (* _Jean-François Alcover_, Jul 07 2021, from Maple *)
%o A342996 (Python)
%o A342996 from sympy import primorial
%o A342996 from sympy.functions import partition
%o A342996 def A342996(n): return partition(primorial(n)) if n > 0 else 1 # _Chai Wah Wu_, Apr 03 2021
%o A342996 (PARI) a(n) = numbpart(prod(k=1, n, prime(k))); \\ _Michel Marcus_, Jul 07 2021
%Y A342996 Cf. A000041, A002110, A000849, A005867, A054640, A058254, A062447, A343147.
%K A342996 nonn
%O A342996 0,2
%A A342996 _Alois P. Heinz_, Apr 01 2021