cp's OEIS Frontend

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

%I A324695 #7 Mar 11 2019 09:36:49
%S A324695 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 A324695 81,83,87,89,91,97,99,101,107,111,113,117,121,127,129,131,133,139,141,
%U A324695 143,147,149,151,159,163,169,171,173,177,179,181,183,189,193,197
%N A324695 Lexicographically earliest sequence of positive integers whose prime indices are not already in the sequence.
%C A324695 A self-describing sequence, similar to A304360.
%C A324695 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 A324695 The sequence of terms together with their prime indices begins:
%e A324695    1: {}
%e A324695    3: {2}
%e A324695    7: {4}
%e A324695    9: {2,2}
%e A324695   11: {5}
%e A324695   13: {6}
%e A324695   19: {8}
%e A324695   21: {2,4}
%e A324695   27: {2,2,2}
%e A324695   29: {10}
%e A324695   33: {2,5}
%e A324695   37: {12}
%e A324695   39: {2,6}
%e A324695   43: {14}
%e A324695   47: {15}
%e A324695   49: {4,4}
%e A324695   53: {16}
%e A324695   57: {2,8}
%e A324695   59: {17}
%e A324695   61: {18}
%e A324695   63: {2,2,4}
%t A324695 aQ[n_]:=And@@Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>!aQ[PrimePi[p]]];
%t A324695 Select[Range[100],aQ]
%Y A324695 Complement of A324694. Prime indices are A304360.
%Y A324695 Cf. A000002, A000720, A001222, A001462, A007097, A055396, A061395, A079000, A079254, A109298, A112798, A276625, A277098.
%Y A324695 Cf. A324696, A324697, A324698, A324699, A324700, A324701, A324702, A324703, A324704, A324705.
%K A324695 nonn
%O A324695 1,2
%A A324695 _Gus Wiseman_, Mar 10 2019