A324694 - OEIS

%I #9 Mar 11 2019 09:36:40

%S 2,4,5,6,8,10,12,14,15,16,17,18,20,22,23,24,25,26,28,30,31,32,34,35,

%T 36,38,40,41,42,44,45,46,48,50,51,52,54,55,56,58,60,62,64,65,66,67,68,

%U 69,70,72,73,74,75,76,78,80,82,84,85,86,88,90,92,93,94,95

%N Lexicographically earliest sequence of positive integers divisible by prime(m) for some m 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    2: {1}

%e    4: {1,1}

%e    5: {3}

%e    6: {1,2}

%e    8: {1,1,1}

%e   10: {1,3}

%e   12: {1,1,2}

%e   14: {1,4}

%e   15: {2,3}

%e   16: {1,1,1,1}

%e   17: {7}

%e   18: {1,2,2}

%e   20: {1,1,3}

%e   22: {1,5}

%e   23: {9}

%e   24: {1,1,1,2}

%e   25: {3,3}

%e   26: {1,6}

%e   28: {1,1,4}

%e   30: {1,2,3}

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

%t Select[Range[100],aQ]

%Y Complement of A324695.

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

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

%K nonn

%O 1,1

%A _Gus Wiseman_, Mar 10 2019