A273402 Squarefree numbers n such that n is divisible by the product of digits of prime(n).

5, 6, 7, 21, 30, 105, 190, 318, 462, 1974, 1995, 3390, 10546, 26886, 86618, 733533, 3624222, 6363183, 13767810, 17334030, 37290610, 56196114, 56196174, 56198055, 56225085, 56388130, 56676030, 60985974, 84686126

Offset

1,1

Links

Table of n, a(n) for n=1..29.

Example

30 is in the sequence because 30 = 2*3*5 that is squarefree; prime(30) = 113; 1*1*3 = 3 that divides 30.
105 is in the sequence because 105 = 3*5*7 that is squarefree; prime(105) = 571; 5*7*1 = 35 that divides 105.

Mathematica

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

Crossrefs

Cf. A005117, A005349, A007602, A038186, A053666, A013929.

Sequence in context: A078694 A221175 A048007 * A217295 A272676 A066876

Adjacent sequences: A273399 A273400 A273401 * A273403 A273404 A273405

Keyword

nonn,base

Author

K. D. Bajpai, May 21 2016

Status

approved