cp's OEIS Frontend

A324771 Numbers divisible by at least one of their prime indices > 1.

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