%I#4 2014年10月6日23:00:37
%S 1,2,5,8,12,15,18,22,25,29,32,35,39,42,46,49,52,56,59,63,66,70,73,76,
%电话80,83,87,90,93,97100104107110114117121124128131134138,
%U 141145148151155158162165169172175179182186189192电话
%N编号k,使A248183(k+1)=A248183(k)。
%C A248183的差分序列是(0,0,1,1,0,0、1,1、1,0、0,1、0、1、1、0,一,1,一,一,0,一…),因此A248184=(1,2,5,8,12,15,18,22,…)和A248185=(3,4,6,7,9,10,11,13,14,16,17,…),是A248185的补码。
%H Clark Kimberling,n的表,n=1..500的a(n)</a>
%tz=200;p[k_]:=p[k]=和[1/(h*(h+1)*(h+2)),{h,1,k}];
%t N[表[1/4-p[N],{N,1,z/10}]]
%t f[n_]:=f[n]=选择[范围[z],1/4-p[#]<1/n^2&,1];
%t u=压扁[表[f[n],{n,1,z}]](*A248183*)
%t压扁[位置[差异[u],0]](*A248184*)
%t压扁[位置[差异[u],1]](*A248185*)
%Y参见A248183、A248185。
%K nonn,简单
%O 1、2
%A_Clark Kimberling_,2014年10月4日
|