%I #7 Mar 11 2019 09:36:49

%S 1,3,7,9,11,13,19,21,27,29,33,37,39,43,47,49,53,57,59,61,63,71,77,79,

%T 81,83,87,89,91,97,99,101,107,111,113,117,121,127,129,131,133,139,141,

%U 143,147,149,151,159,163,169,171,173,177,179,181,183,189,193,197

%N Lexicographically earliest sequence of positive integers whose prime indices are not already in the sequence.

%C A self-describing sequence, similar to A304360.

%C A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

%e The sequence of terms together with their prime indices begins:

%e 1: {}

%e 3: {2}

%e 7: {4}

%e 9: {2,2}

%e 11: {5}

%e 13: {6}

%e 19: {8}

%e 21: {2,4}

%e 27: {2,2,2}

%e 29: {10}

%e 33: {2,5}

%e 37: {12}

%e 39: {2,6}

%e 43: {14}

%e 47: {15}

%e 49: {4,4}

%e 53: {16}

%e 57: {2,8}

%e 59: {17}

%e 61: {18}

%e 63: {2,2,4}

%t aQ[n_]:=And@@Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>!aQ[PrimePi[p]]];

%t Select[Range[100],aQ]

%Y Complement of A324694. Prime indices are A304360.

%Y Cf. A000002, A000720, A001222, A001462, A007097, A055396, A061395, A079000, A079254, A109298, A112798, A276625, A277098.

%Y Cf. A324696, A324697, A324698, A324699, A324700, A324701, A324702, A324703, A324704, A324705.

%K nonn

%O 1,2

%A _Gus Wiseman_, Mar 10 2019