cp's OEIS Frontend

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.

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

This page as a plain text file.
%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