%I#21 2024年1月1日11:19:59

%S 1,3,4,6,7,8,10,12,13,14,16,17,19,20,21,22,24,26,27,29,31,32,33,34,36，

%电话：37,39,40,41,43,46,47,48,49,50,51,53,55,56,58,59,60,61,63,64,67,69,70，

%U 71,72,73,74,75,77,80,81,82,83,85,87,88,89,90,92,94,95,98,99100102单位

%N A005229中首次出现N的索引。

%F a（n）=最小k，以便A005229（k）=n。

%o（真基本）

%o 70 DIM q0（0至4000）

%o 80 LET q0（1）=1

%o 90 LET q0（2）=1

%o 91，n=3至4000

%o 92 LET q0（n）=q0（q0（n-2））+q0（n-q0（n-2））

%o 93下一个n

%o 100设置模式“颜色”

%o 110设置窗户01024,0750

%o 302打印“由_Roger L.Bagula_2003年10月2日”

%o 303 DIM p（0至4000）

%o 310 x=1至4000

%o 311 REM，如果p（q0（x））尚未使用，则已经给p（）一个值

%o 312如果p（q0（x））=0，则LET p（q0x））=x

%o 380下一个x

%o 381打开#1:name“CM1:MI_data”，创建新的组织文本

%o 390对于x=1至200

%o 391打印#1:p（x）；",";

%o 392打印p（x）；

%o 393下一个x

%o 394关闭#1

%o 460结束

%o（PARI）{m=102；v5229=矢量（m“）}

%Y参考A005229。

%K nonn公司

%O 1,2号机组

%A _Roger L.Bagula，2003年10月2日

%E编辑：N.J.A.Sloane，2006年4月7日