%I#6 2021年5月1日15:56:07

%S 1,2,3,5,4,7,10,16,6,8,22,12,9,14,20,11,41,26,19,35,21,23,13,15,28,37，

%电话：38,39,53,17,32,18,45,33,56,49,68,40,92,24,25,52,27,43123,44,87,98，

%U 177100,29,30,63,31,67,69,88,71,54,34,73,36,57,76,77252,80118,85121165单位

%N A112037中出现第N个素数的位置。

%H Michael De Vlieger，n的表，a（n）表示n=1..10000</a>

%t lst＝｛｝；r[n]：=（长度=长度@lst; lst=压扁@Join[lst，选择[First/@FactorInteger[素数@n - 1], ! 成员Q[lst，#]&]]；如果[l<长度@lst, 1, 0]); 做[r[n]，{n，260}]；表[位置[lst，质数[n]]，{n，71}]//展平

%Y参考A112037、A112038。

%K nonn公司

%O 1,2号机组

%A _Robert G.Wilson v _，2005年11月29日