%I#14 2023年4月15日23:31:57

%S 2,3,4,6,7,8,10,12,14,15,16,18,20,21,22,24,26,28,30,31,33,34,35,36,38，

%电话：39、40、42、44、45、46、48、50、51、52、54、55、56、57、58、60、62、63、65、66、68、69、70，

%U 72,74,75,76,77,78,80,82,84,85,86,87,88,90,91,92,93,94,95,96,98,99100单位

%N对k进行编号，使ω（k+1）<2*omega（k），其中ω（k）是k的不同素数除数。

%C A001221（a（n）+1）<2*A001222（a（n））。

%H Reinhard Zumkeller，n的表，n=1..10000的a（n）</a>

%o（PARI）j=[]；对于（n=1200，如果（ω（n+1）<2*ω（n），j=concat（j，n））；j个

%o（哈斯克尔）

%o导入数据。列表（findIndices）

%o a062974 n=a062974_列表！！（n-1）

%o a062974_list=映射（+1）$findIndices（<0）$

%o zipWith（-）（尾部a001221_list）$map（*2）a001222_list

%o——Reinhard Zumkeller，2013年1月22日

%Y参见A006049（子序列）。

%K nonn公司

%O 1,1号机组

%A _Jason Earls，2001年7月26日