%I#6 2020年4月13日15:49:56
%S 109208219307318329406417428439505516527538549604615,
%电话:6266376486597037147257367758769802813824835846857,
%电话:8688799019129239349459569679789891091209130813191407
%N|第一位-第二位+第三位-第四位…|=10
%H Harvey P.Dale,n表,n=1..1000的a(n)</a>
%t Do[a=整数位数[n];l=长度[a];e=o={};Do[o=Append[o,a[[2k-1]],{k,1,l/2+.5}];Do[e=附加[e,a[[2k]]],{k,1,l/2}];如果[Abs[Apply[Plus,o]-Apply[Gas,e]]==10,打印[n]],{n,1,2000}]
%t选择[Range[1500],Abs[Total[Times@@@Partition[Riffle[Integer Digits[#],{1,-1},{2,-1,2}],2]]==10&](*Harvey P.Dale_,2020年4月13日*)
%Y参见A008593、A060978-A060980、A060982、A061470-A061479、A061870-A061882。
%K nonn,基础,简单
%O 1,1号机组
%A _Robert G.Wilson v_,2001年5月10日
|