Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 May 21 2016 17:39:28
%S 5,6,7,21,30,105,190,318,462,1974,1995,3390,10546,26886,86618,733533,
%T 3624222,6363183,13767810,17334030,37290610,56196114,56196174,
%U 56198055,56225085,56388130,56676030,60985974,84686126
%N Squarefree numbers n such that n is divisible by the product of digits of prime(n).
%e 30 is in the sequence because 30 = 2*3*5 that is squarefree; prime(30) = 113; 1*1*3 = 3 that divides 30.
%e 105 is in the sequence because 105 = 3*5*7 that is squarefree; prime(105) = 571; 5*7*1 = 35 that divides 105.
%t A273402 = {}; Do[p = Prime[n]; k = Times @@ IntegerDigits[p]; If[k > 0 && Divisible[n, k] && SquareFreeQ[n], AppendTo[A273402, n]], {n, 1, 10^8}]; A273402
%Y Cf. A005117, A005349, A007602, A038186, A053666, A013929.
%K nonn,base
%O 1,1
%A _K. D. Bajpai_, May 21 2016