%I#26 2023年1月2日12:30:51

%S 0,0,0,0,3,3,3,6,8,8,9,11,11,11,15,15,16,16,18,18,19,19,21,24,24，

%电话：24,24,27,27,20,27,30,32,32,35,35,38,39,39,40,41,43,43,45,48，

%U 48、48、50、51、51、53、54、56、56、59、59、69、63、63、64、66、67、67、70、71、72、72、73、74、75、78、80、80、81

%N N减去加起来等于N的最小平方数：a（N）=N-A002828（N）。

%C关联的beanstalk序列从a（0）开始，如下所示：0、3、6、8、11、15、16、18、21。。。（A276573）。

%H Robert Israel，n的表，n=0..10000的a（n）</a>

%H<a href=“http://list.seqfan.eu/oldermail/seqfan/2013-August/011588.html“>关于SeqFan邮件列表的讨论</a>

%F a（n）=n-A002828（n）。

%F a（n）=A260740（n）+A062535（n）。

%e a（0）=0，因为空和不需要平方，并且0-0=0。

%e a（3）=0，因为3不能表示为小于三个平方（1+1+1）和3-3=0的和。

%e a（4）=3，因为4可以表示为一个平方的和（即4本身），并且4-1=3。

%p f：=进程（n）局部f，x；

%p如果issqr（n），则返回n-1 fi；

%p如果nops（选择（t->t[1]mod 4=3和t[2]：：奇数，ifactors（n）[2]））=0，则返回n-2 fi；

%p x：=n/4^楼层（padic:-ordp（n，2）/2）；

%p如果x mod 8=7，则为n-4，否则为n-3 fi

%p端程序：

%p f（0）：=0：

%p映射（f，[$0.100]）；#_罗伯特·伊斯雷尔，2018年3月27日

%t{0}~连接~表[n-（如果[First@#>0，1，Length[First@Split@#]+1]&@SquaresR[Range@4，n]），{n，84}]（*Michael De Vlieger_，2016年9月8日，在Arvey P.Dale_ at A002828*之后）

%Y子序列：A005563。

%Y参见A000290、A002828、A062535、A260731、A26073、A260793、A260744、A262689、A276573。

%Y参见A011371、A236840、A260740。

%K nonn公司

%0、5

%2015年2月24日，安蒂·卡图内