login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #16 Feb 25 2024 05:57:43

%S 10,12,20,21,23,24,30,32,34,36,40,42,43,45,46,48,50,54,56,60,63,64,65,

%T 67,68,69,70,76,78,80,84,86,87,89,90,96,98,100,105,108,110,112,114,

%U 120,121,126,128,162,200,220,221,223,224,225,228,240,242,300,324,325,330

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

%H Paolo P. Lava, <a href="/A048378/b048378.txt">Table of n, a(n) for n = 1..1000</a>

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

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

%K nonn,base

%O 1,1

%A _Patrick De Geest_, Mar 15 1999

%E Edited by _Charles R Greathouse IV_, Apr 28 2010