%I#15 2024年1月9日10:54:06

%S 1,1,1,7,1,19,1,27,9,1,65,110,1231147,57,1,69,13,1273,1855，

%电话：355,15,12277451111,1537934871661127,17,1115832223689,1，

%电话：204497371833,19,1436153446321385102833745995181,1201,21,1

%N奇数元素位于5-Pascal三角形A028313中心元素右侧。

%C A028323的奇数元素。-_G.C.Greubel，2024年1月6日

%H G.C.Greubel，n表，n=0..1000时的a（n）</a>

%t A028313[n_，k_]：=如果[n<2，1，二项式[n，k]+3*二项式[2，k-1]]；

%t f=表格[A028313[n，k]，{n，0100}，{k，1+楼层[n/2]，n}]//平整；

%tb[n_]：=删除案例[{f[[n+1]]}，_？EvenQ]；

%t表[b[n]，{n，0150}]//扁平（*_G.C.格鲁贝尔，2024年1月6日*）

%o（岩浆）

%o T:=func<n，k|二项式（n+1，k+1+Floor（（n+1）/2））+3*二项式T=A028323，基本上

%o b:=[T（n，k）：k in[0..Floor（n/2）]，n in[0..100]]；

%o[b[n]：[1..150]中的n |（b[n]mod 2）eq 1]；//_G.C.Greubel_，2024年1月6日

%o（SageMath）

%o定义T（n，k）：返回二项式（n+1，k+1+（n+1）//2）+3*二项式

%o b=压扁（[[T（n，k）代表范围（1+（n//2））中的k]代表范围（101）中的n]）

%o如果b[n]%2==1]#_G.C.Greubel_，2024年1月6日，（1..150）中n的o[b[n]

%Y参考A028313、A028323。

%K nonn公司

%0、4

%A _莫哈迈德·阿扎里安_

%E James A.Sellers提供的更多条款_