STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
For all n, omega(a(n)) = Omega(a(n)). The prime factorisation factorization of each term gives the least part primes of all partitions of n into prime parts.
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
a[0] = 1; a[n_] := Times @@ Union[Min /@ IntegerPartitions[n, All, Prime[ Range[PrimePi[n]]]]];
a /@ Range[0, 55] (* Jean-François Alcover, Nov 01 2020 *)
approved
editing
editing
approved