%I#6 2019年3月1日23:33:27
%第37,48111147148525823210361443245733673468447758876591页,
%电话:699376961101112025120961243249312636126911294312987,
%电话:13357133771346713468333667334668
%N个数字k,其为级联k=x//y,使得x^2+y^2-x*y=k。
%e147是一个术语,因为147=14//7=14^2+7^2-14*7。
%p Lton:=过程(L)加(op(i,L)*10^(i-1),i=1..nops(L));结束时间:
%p代表10 do dgs中的n:=转换(n,基数,10);对于从1到nops(dgs)的spli,-1 do ydgs:=[op(1..spli,dgs];xdgs:=[op(spli+1..nops(dgs),dgs;如果op(-1,ydgs)<>0,则x:=Lton(xdgs);y:=升(ydgs);如果y^2+x^2-x*y=n,则打印(n);fi;fi;od:od:#R.J.Mathar_,2009年7月16日
%K nonn,基础
%O 1,1号机组
%A _克劳迪奥·梅勒,2009年7月6日
%E由R.J.Mathar_简化的定义和添加的37、48、333667、334668,2009年7月16日
|