Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A048378
Divisible by the concatenation of its first digit-differences (leading zeros allowed).
3
10, 12, 20, 21, 23, 24, 30, 32, 34, 36, 40, 42, 43, 45, 46, 48, 50, 54, 56, 60, 63, 64, 65, 67, 68, 69, 70, 76, 78, 80, 84, 86, 87, 89, 90, 96, 98, 100, 105, 108, 110, 112, 114, 120, 121, 126, 128, 162, 200, 220, 221, 223, 224, 225, 228, 240, 242, 300, 324, 325, 330
OFFSET
1,1
LINKS
EXAMPLE
324 -> abs(3-2) and abs(2-4) = 12 so 324/12 = 27.
MATHEMATICA
dcfQ[n_]:=Module[{c=FromDigits[Abs[Differences[IntegerDigits[n]]]]}, If[c == 0, False, Divisible[ n, c]]]; Select[Range[400], dcfQ] (* Harvey P. Dale, Nov 09 2019 *)
CROSSREFS
Sequence in context: A135988 A038527 A270263 * A338640 A129845 A075492
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 28 2010
STATUS
approved