检验过的

经核准的

提议的

检验过的

编辑

提议的

分配编号 属于 因素 L（左）(我) >1 属于 1974年2月(n个)，哪里 L（左）=A000032号(卢卡斯 对于数字,2,1,三,4,...,具有 克拉克1 金伯利排除)

1, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 3, 2, 1, 2, 2, 3, 2, 1, 2, 3, 2, 3, 2, 1, 2, 3, 2, 3, 2, 3, 2, 1, 2, 3, 2, 3, 2, 3, 4, 3, 2, 2, 1, 2, 3, 2, 3, 3, 2, 3, 4, 3, 2, 3, 2, 1, 2, 3, 2, 3, 3, 3, 2, 3, 4, 3, 4, 2, 3, 2, 1, 2, 2, 3, 3, 2, 3, 3, 4, 3, 2, 3, 4, 3

1,4

不同卢卡斯数（包括2，不包括1）的乘积按递增顺序排列，包括A274281型（去掉1个）。列表以2、3、4、6=2*3、7、8=2*4、11、12、14、18、21、22、24=2*3*4开头，因此a（4）=2、a（6）=2，a（13）=3。

r[1]：=2；r[2]：=1；r[n]：=r[n]=r[n-1]+r[n-2]；

s={1}；z=40；f=Join[{2}，Map[r，2+Range[z]]]；取[f，10]

Do[s=并集[s，选择[s*f[[i]]，#<=f[[z]]&]]，{i，z}]；

infQ[n_]：=成员Q[f，n]；

ans=表格[#[[Flatten[Position[Map[Apply[Times，#]&，#]，s[[n]]][1]]]&[

Rest[Subset[Map[#[[1]]&，Select[Map[{#，infQ[#]}&，

除数[s[[n]]]，#[[2]；

取[ans，10]

w=地图[长度，ans]

地图[Apply[Times，#]&，Select[ans，Length[#]==2&]](*A274349号*)

地图[Apply[Times，#]&，Select[ans，Length[#]==3&]](*A274350型*)

(*彼得·J·C·摩西2016年6月17日*）

囊性纤维变性。A000032号,A274353型,A274349号,A274350型,A160009型,172947英镑.

分配

非n,容易的

克拉克·金伯利2016年6月18日

经核准的

编辑

分配给克拉克·金伯利

分配

经核准的