%I#15 2017年11月15日05:41:47

%S 3,5,7,8,9,11,13,14,15,17,19,20,21,23,25,26,27,29,31,32,33,35,37,38，

%电话：39、41、43、44、45、47、49、50、51、53、55、56、57、59、61、62、63、64、65、67、68、69、71，

%U 73,74,75,77,79,80,81,83,85,86,87,89,91,92,93,94,95,97,98,99单位

%N数k，使得d+k/d对于k的任何除数d都不是素数。

%C编号k，使A282849（k）=0。

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

%p移除（n->ormap（t->isprime（t+n/t），numtheory：除数（n）），[$1.100]）；#_Robert Israel_，2017年11月14日

%t选择[Range@100，Function[k，NoneTrue[Divisors@k，PrimeQ[#+k/#]&]]（*_Michael De Vlieger_，2017年11月13日*）

%o（PARI）isok（n）=sumdiv（n，d，isprime（d+n/d））==0；

%Y参考A282849（n的除数，使得d+n/d是素数），A080715（d+n/d是n的每个除数d的素数）。

%Y包括A047255中>2的所有元素。

%K nonn公司

%O 1,1号机组

%2017年11月13日，马库斯