OFFSET
0,2
COMMENTS
There are several other sequences closely related to a(n). A066099 and A108244 both list the associated exponents, while A108730 provides an elegant mapping to binary representations. - Alford Arnold, Mar 05 2006
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..14264 (rows 0 <= n <= 487 = A098719(9) - 1.)
OEIS Wiki, Orderings of ordered prime signatures
EXAMPLE
Sequence begins
1,
2,
4,
6,
8,
12,18,
16,
24,54,
30,
32,
36,
48,162,
60,90,150
MATHEMATICA
SortBy[#, First] &@ Map[Union@ Map[Times @@ MapIndexed[Prime[First@ #2]^#1 &, #] &, Permutations[#]] &, Map[If[# == 1, {0}, Function[f, ReplacePart[Table[0, {PrimePi[f[[-1, 1]]]}], #] &@ Map[PrimePi@ First@ # -> Last@ # &, f]]@ FactorInteger@ #] &, Import["https://oeis.org/A025487/b025487.txt", "Data"][[1 ;; 30, -1]] ] ] // Flatten (* Michael De Vlieger, Feb 06 2020, using b-file from A025487 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Ray Chandler, Aug 01 2004
EXTENSIONS
Edited by Daniel Forgues, Jan 24 2011
STATUS
approved