|
%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
|
