A048378 Divisible by the concatenation of its first digit-differences (leading zeros allowed).

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

Paolo P. Lava, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A048375 A048376 A048377 * A048379 A048380 A048381

Keyword

nonn,base

Author

Patrick De Geest, Mar 15 1999

Extensions

Edited by Charles R Greathouse IV, Apr 28 2010

Status

approved