|
|
A187551
|
|
Numbers divisible by at least seven of their digits, different and >1.
|
|
6
|
|
|
23469768, 23579640, 23594760, 23674896, 23684976, 23687496, 23745960, 23746968, 23769648, 23796864, 23876496, 23897664, 23947560, 23957640, 23976540, 24367896, 24375960, 24376968, 24539760, 24679368, 24687936, 24753960, 24783696, 24869376, 24876936, 25497360, 25639740, 25749360, 25793460, 25967340
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
There are 708 terms < 10^8.
|
|
LINKS
|
|
|
MATHEMATICA
|
numdig = 7; Select[Range[25967340], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* Amiram Eldar, Aug 30 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|