%I #10 Apr 14 2021 03:12:37
%S 6,12,15,18,24,28,30,36,42,45,48,54,55,56,60,66,72,75,78,84,90,96,102,
%T 105,108,110,112,114,119,120,126,132,135,138,140,144,150,152,156,162,
%U 165,168,174,180,186,192,195,196,198,204,207,210,216,220,222,224,225
%N Numbers divisible by at least one of their prime indices > 1.
%C A prime index of n is a number m such that prime(m) divides n.
%H Amiram Eldar, <a href="/A324771/b324771.txt">Table of n, a(n) for n = 1..10000</a>
%e The sequence of terms together with their prime indices begins:
%e 6: {1,2}
%e 12: {1,1,2}
%e 15: {2,3}
%e 18: {1,2,2}
%e 24: {1,1,1,2}
%e 28: {1,1,4}
%e 30: {1,2,3}
%e 36: {1,1,2,2}
%e 42: {1,2,4}
%e 45: {2,2,3}
%e 48: {1,1,1,1,2}
%e 54: {1,2,2,2}
%e 55: {3,5}
%e 56: {1,1,1,4}
%e 60: {1,1,2,3}
%e 66: {1,2,5}
%e 72: {1,1,1,2,2}
%e 75: {2,3,3}
%e 78: {1,2,6}
%e 84: {1,1,2,4}
%t Select[Range[100],Or@@Cases[If[#==1,{},FactorInteger[#]],{p_?(#>2&),_}:>Divisible[#,PrimePi[p]]]&]
%Y Complement of A324849.
%Y Cf. A003963, A056239, A112798, A120383, A289509, A290822, A304360.
%Y Cf. A324695, A324846, A324847, A324848, A324850, A324851, A324852, A324853.
%K nonn
%O 1,1
%A _Gus Wiseman_, Mar 18 2019