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

Author

Patrick De Geest, Mar 15 1999

Keywords

• nonn
• base

Examples

			324 -> abs(3-2) and abs(2-4) = 12 so 324/12 = 27.
		

Links

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

Programs

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 *)

Extensions

Edited by Charles R Greathouse IV, Apr 28 2010