1,1

Complement of A130091; A120944 and A085986 are subsequences;

a(n)>A130091(n) for n<=150, a(n) < A130091(n) for n>150.

R. Zumkeller, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Prime Factorization

t[n_] := FactorInteger[n][[All, 2]]; s = Select[Range[400], Union[t[#]] == Sort[t[#]] &] (* A130091 *)

Complement[Range[Max[s]], s] (* A130092 *)

(* Clark Kimberling, Mar 12 2015 *)

Sequence in context: A279458 A119899 A351295 * A289619 A329140 A182853

Adjacent sequences: A130089 A130090 A130091 * A130093 A130094 A130095

nonn

Reinhard Zumkeller, May 06 2007

approved