%I#24 2024年4月29日10:52:48
%S 6,30,30,12,42,90,66,24,78150102,36114210138,48150270174,60,
%电话:186330210,72222390246,84258450282,96294510318108330570,
%电话:354120366630390132402690426144438750462156474810498168510870534
%N A069497的第一个差异。
%C可被6整除的三角形数子序列的第一个差。
%根据定义,这些数字本身可以被6整除。
%联邦政府:6*(x^2+4*x+1)*(x*2-x+1)/((x-1)^2*(x|2+1)^2)_Robert Israel_,2017年5月30日
%e第一个可被6整除的三角形数是6,第二个可被六整除的三角数是36。因此a(2)=36-6=30。(可被6整除的第零个三角形数取0。)
%p S:=[seq(seq((12*i+j)*(12*i+j+1)/2,j=[0,3,8,11]),i=0..50)]:
%p S[2..-1]-S[1..-2];#_Robert Israel_,2017年5月30日
%t差异@Select[Array[#(#+1)/2&,180,0],Mod[#,6]==0&](*_Robert G.Wilson v_,2017年5月30日*)
%t差异[选择[累计[范围[0,209]],可分割[#,6]&]](*_Alonso del Arte_,2017年5月31日*)
%Y参见A069497、A108782、A154293。
%K nonn,看
%O 1,1号机组
%A _Greg Huber,2017年5月30日
%E来自_Robert G.Wilson的更多条款v_,2017年5月30日
|