|
|
A147749
|
|
Eight-digit numbers with all distinct digits with property that the string formed by the last k digits is divisible by k for any 1<=k<=8.
|
|
1
|
|
|
12495360, 12573480, 12576840, 12579360, 12597840, 12639840, 12657480, 12738960, 12765840, 12789360, 12843960, 12894360, 12957360, 12975840, 12978360, 13276840, 13297840, 13567480, 13579240, 13672480, 13675840
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
There are exactly 921 such numbers with smallest 12495360 and the largest 98765120.
|
|
LINKS
|
|
|
MATHEMATICA
|
se8={}; Do[If[8-Length@Union@IntegerDigits[n]==Mod[Mod[n, 10^3], 24]== Mod[Mod[n, 10^6], 6]==Mod[Mod[n, 10^7], 7]==0, AppendTo[se8, n]], {n, 10000020, 99999999, 20}]; se8
Sort[FromDigits/@Select[Select[Flatten[Permutations/@Subsets[Range[0, 9], {8}], 1], First[#]>0&], And@@Table[Divisible[FromDigits[Take[#, -i]], i], {i, 8}]&]] (* Harvey P. Dale, Aug 19 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|