%I#27 2016年1月6日11:46:45

%S 105672120015301560214529073060343247045814600661206240，

%电话8721957010710107521092011154162811700122401244113260，

%电话：145351501516302174421965620163202802083211420226202325623400

%N可被相邻数字之和的乘积整除的数字。

%C所有术语都是3的倍数。到10^8，正好有6865个奇数项和25055个偶数项_扎克·塞多夫，2013年5月11日

%注意我的jpg文件中的线性模式_Zak Seidov_，2013年5月11日

%C次层序包括10^（2+6k）+5、10^

%D Die WURZEL-Zeitschrift für Mathematik，42岁。Jahrgang，Dezember 2008，Seite 287，WURZEL-Aufgabe sigma55 von Reiner Moewald，Germersheim。

%H Robert Israel，<a href=“/A152826/b152826.txt”>n，a（n）表，n=1..1000</a>

%H Zak Seidov，n=1..31920时，a（n）/3/A007953（a（n）-1）/A007952（a（n+1）</a>的曲线图。

%p ds：=n->转换（转换（n，基数，10），`+`）：

%p滤波器：=n->n模（ds（n-1）*ds（n+1））=0：

%p选择（过滤器，3*[1..10000]）；#_罗伯特·伊斯雷尔（Robert Israel），2016年1月5日

%t选择[Range[50000]，Divisible[#，Total[IntegerDigits[#-1]]*Total[CintegerDiges[#+1]]&]（*_哈维·P·戴尔，2010年12月11日*）

%o（Java）类程序{static void Main（string[]args）{for（int i=1；i<1000000；i++）{int q1=quersume（i-1）；int q2=quersumme（i+1）；if（（双）i%（双）q1*（双）q2）==0）{Console.WriteLine（i）；}}}控制台。ReadLine（）；}静态int quersumme（int num）{string n=num.ToString（）；int retval=0；int i=n.长度-1；while（i>=0）{retval+=Int32.解析（n.Substring（i，1））；i--；}return retval；}}

%Y参考A007953。

%K nonn，基础，简单

%O 1,1号机组

%格哈德·帕尔姆（Gerhard Palme（AT）gmx.de），2008年12月13日