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.
12495360, 12573480, 12576840, 12579360, 12597840, 12639840, 12657480, 12738960, 12765840, 12789360, 12843960, 12894360, 12957360, 12975840, 12978360, 13276840, 13297840, 13567480, 13579240, 13672480, 13675840
Offset: 1
Links
- Zak Seidov, Table of n, a(n) for n = 1..921 (complete sequence)
Programs
-
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 *)
Comments