|
|
A273402
|
|
Squarefree numbers n such that n is divisible by the product of digits of prime(n).
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|