|
%I #7 Oct 31 2013 12:17:26
%S 2,6,12,24,32,48,64,96,128,180,210,240,288,384,432,512,720,840,900,
%T 1024,1152,1296,1536,1728,1920,2160,2310,2592,3072,3456,3840,4320,
%U 4620,5184,5760,6300,6720,7200,7680,8192,9216,10080,10800,12288,12960,13824,14400
%N Bisection of A025487.
%C A025487: least integer of each prime signature; also products of primorial numbers A002110. - _Robert G. Wilson v_, Dec 14 2005
%t PrimeExponents[n_] := Last /@ FactorInteger@n; lpe = {}; ln = {1}; Do[ pe = Sort@PrimeExponents@n; If[FreeQ[lpe, pe], AppendTo[lpe, pe]; AppendTo[ln, n]], {n, 15000}]; ln[[2# ]] & /@ Range@(Length@ln/2) (* _Robert G. Wilson v_ *)
%Y Cf. A099992.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Nov 20 2004
%E More terms from _Robert G. Wilson v_, Dec 14 2005
|
