A147636
a(n) = least n-distinct-decimal-digit number such that the string formed by the last k digits is divisible by k for any 1<=k<=n.
Original entry on oeis.org
0, 10, 102, 1024, 12360, 123480, 1249360, 12495360, 123567480, 9123567480
Offset: 1
A140501 Ten-digit numbers with all distinct digits such that the string formed by the last k digits is divisible by k for any k <=10.
A147637 a(n) = largest n-distinct-decimal-digit number such that the string formed by the last k digits is divisible by k for any 1<=k<=n.
A147637
a(n) = largest n-distinct-decimal-digit number such that the string formed by the last k digits is divisible by k for any 1<=k<=n.
Original entry on oeis.org
9, 98, 984, 9876, 98720, 987540, 9864120, 98765120, 876351240, 9876351240
Offset: 1
A140501 Ten-digit numbers with all distinct digits such that the string formed by the last k digits is divisible by k for any k <=10.
A147636 a(n) = least n-distinct-decimal-digit number such that the string formed by the last k digits is divisible by k for any 1<=k<=n.
A147647
Nine-digit numbers with all distinct digits such that the string formed by the last k digits is divisible by k for any 1<=k<=9.
Original entry on oeis.org
123567480, 123675840, 123756480, 126573840, 132576840, 132657480, 132765840, 135648720, 135726840, 138546720, 138675240, 147528360, 153276840, 153672480, 153768240, 156237840, 156348720, 162573480, 165327840, 165378240, 165438720
Offset: 1
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.
Original entry on oeis.org
12495360, 12573480, 12576840, 12579360, 12597840, 12639840, 12657480, 12738960, 12765840, 12789360, 12843960, 12894360, 12957360, 12975840, 12978360, 13276840, 13297840, 13567480, 13579240, 13672480, 13675840
Offset: 1
-
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 *)
Showing 1-4 of 4 results.
Comments