A099993 Bisection of A025487.

2, 6, 12, 24, 32, 48, 64, 96, 128, 180, 210, 240, 288, 384, 432, 512, 720, 840, 900, 1024, 1152, 1296, 1536, 1728, 1920, 2160, 2310, 2592, 3072, 3456, 3840, 4320, 4620, 5184, 5760, 6300, 6720, 7200, 7680, 8192, 9216, 10080, 10800, 12288, 12960, 13824, 14400

Offset

1,1

Comments

A025487: least integer of each prime signature; also products of primorial numbers A002110. - Robert G. Wilson v, Dec 14 2005

Links

Table of n, a(n) for n=1..47.

Mathematica

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 *)

Crossrefs

Cf. A099992.

Sequence in context: A129314 A137895 A194096 * A011778 A067718 A210594

Adjacent sequences: A099990 A099991 A099992 * A099994 A099995 A099996

Keyword

nonn,easy

Author

N. J. A. Sloane, Nov 20 2004

Extensions

More terms from Robert G. Wilson v, Dec 14 2005

Status

approved