login
a(n)=A007947[A055932(n)]; the sequence consists of primorial numbers;.
5

%I #8 Feb 06 2020 20:54:14

%S 2,2,6,2,6,2,6,6,30,2,6,6,6,30,2,6,30,6,6,30,2,6,30,6,30,6,210,6,30,2,

%T 30,6,30,6,30,6,210,6,30,30,6,2,30,6,30,210,6,30,30,6,30,210,6,30,30,

%U 6,2,210,30,6,30,210,6,30,30,6,210,30,6,30,210,6,30,210,30,6,2,210,30,30,6

%N a(n)=A007947[A055932(n)]; the sequence consists of primorial numbers;.

%H Michael De Vlieger, <a href="/A080404/b080404.txt">Table of n, a(n) for n = 1..10000</a>

%t With[{P = FoldList[Times, Prime@ Range@ Max@ #]}, Map[P[[#]] &, #]] &@ Map[PrimeNu@ # &, Select[Range[10^4], Last[#] == Length[#] &@ PrimePi@ FactorInteger[#][[All, 1]] &]] (* _Michael De Vlieger_, Feb 06 2020 *)

%Y Cf. A007947, A002110, A055932.

%K nonn

%O 1,1

%A _Labos Elemer_, Mar 19 2003