%I#15 2020年11月26日09:16:15
%S 1,1,1,1,-1,1,1,-1,1,-1-1,-1,1,1,-1-1,
%T-1,1,-1,1,-1,1,1,-1-1,-1,1,-11,1,-1-1,
%U-1,1,-1,1,1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1
%N A076042第一个差异的标志。
%C A076042的第一个差异的序列是这个序列乘以n^2。在前五个条目之后,序列主要由交替的1和-1组成,额外的1越来越少。
%F A076042(n)=A076041(n-1)+a(n)*(n^2)。
%e A076042(10)-A076072(9)=7-107=-100=(-1)*(11^2),因此a(10)=-1。
%p b:=proc(n)选项记忆`如果`(n=0,0,(t->
%p t+`如果`(t<n^2,1,-1)*n^2)(b(n-1))
%p端:
%p a:=n->符号(b(n)-b(n-1)):
%p序列(a(n),n=1..105);#_Alois P.Heinz_,2019年9月8日
%tb[n_]:=b[n]=如果[n==0,0,b[n-1]+如果[b[n-1]<n^2,n^2、-n^2];
%t b/@Range[0100]//差异//标志(*_Jean-François Alcover_,2020年11月26日*)
%Y参考A076042。
%K放松,签名
%O 1个
%A_Allan C.Wechsler_,2019年9月8日
|