This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A048378 #16 Feb 25 2024 05:57:43 %S A048378 10,12,20,21,23,24,30,32,34,36,40,42,43,45,46,48,50,54,56,60,63,64,65, %T A048378 67,68,69,70,76,78,80,84,86,87,89,90,96,98,100,105,108,110,112,114, %U A048378 120,121,126,128,162,200,220,221,223,224,225,228,240,242,300,324,325,330 %N A048378 Divisible by the concatenation of its first digit-differences (leading zeros allowed). %H A048378 Paolo P. Lava, <a href="/A048378/b048378.txt">Table of n, a(n) for n = 1..1000</a> %e A048378 324 -> abs(3-2) and abs(2-4) = 12 so 324/12 = 27. %t A048378 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 A048378 nonn,base %O A048378 1,1 %A A048378 _Patrick De Geest_, Mar 15 1999 %E A048378 Edited by _Charles R Greathouse IV_, Apr 28 2010