%I#17 2013年4月27日15:00:00
%S 30,41,56,81,95,96,98101112114121125131142152157168173,
%电话:17718218619119619719920620921321521621722723023234,
%电话:240243245244825272602622662722784285287292300
%N可以用多种方式表示为N加上平方数字之和(N)的数字。
%H Christian N.K.Anderson,<a href=“/A225049/b225049.txt”>N表,N=1..10000的a(N)</a>
%H Christian N.K.Anderson,<a href=“/A225049/A225049.txt”>对于N=1..10000,生成a(N)</a>的所有整数
%e a(13)=131包括在内,因为131=57+5^2+7^2=73+7^2+3^2=105+1^2+5^2=122+1^2+4^2+4^2。
%o(R)digsqsum<-函数(x)sum(作为数字(未列出(strsplit(作为字符(x),split=“”))^2)
%o 1:500+多汁(1:500,digsqsum)->y
%o表(y)->ty;名称(ty[ty>1])
%Y参见A225048、A003052、A003219、A003132、A062028、A066568。
%K nonn,基础
%O 1,1号机组
%凯文·施瓦茨和克里斯蒂安·安德森,2013年4月25日
|