%I#28 2020年2月16日00:46:27

%S 4,5,6,7,9,10,11,13,15,17,18,19,21,23,25,27,29,31,33,34,35,37,39,41，

%电话：43,45,47,49,51,53,55,57,59,61,63,65,66,67,69,71,73,75,77,79,81,83,85，

%U 87,89,91,93,95,97,99101103105107111113115117119单位

%形式为2^k+素数的数，其中k>0。

%C A039669包含在该序列中。

%H Vincenzo Librandi，n的表，n=1..1000的a（n）</a>

%H Yong-Gao Chena和Xue-Gong Sunb，<a href=“http://dx.doi.org/10.1016/j.jnt.2003.11.009“>关于罗曼诺夫常数，《数论杂志》，第106卷，第2期，2004年6月，第275-284页。

%H Christian Elsholtz、Florian Luca和Stefan Planitzer，<a href=“https://doi.org/10.1007/s11139-017-9972-8“>Romanov型问题，《Ramanujan Journal》47.2（2018）：267-289。

%H P.Erdós，<a href=“网址：http://www.renyi.hu/~p_erdos/1950-07.pdf“>关于2^k+p形式的整数和一些相关问题，巴西数学文摘2（1950），第113-123页。

%H N.P.Romanoff，<a href=“http://gdz.sub.uni-goettingen.de/dms/resolveppn/？PPN=GDZPPN002276984“>《数学年鉴》57（1934）668-678。

%e5=3+2，即素数和2的幂。

%pq:=n->ormap（i素数，[seq（n-2^k，k=1..ilog2（n））]）：

%p选择（q，[$0..200]）[]；#_阿洛伊斯·海因茨，2020年2月14日

%t nn=119；ps=素数[范围[PrimePi[nn]]]；p2=2^范围[Log[2，nn]]；u={}；Do[u=并集[u，ps+p2[[i]]]，{i，长度[p2]}]；选择[u，#<=nn&]（*_T.D.Noe_，2012年10月19日*）

%o（PARI）isok（n）=｛forprime（p=2，n，my（d=n-p）；if（（d==2）||（ispower（d，，&k）&&（k==2）），return（1））；）；0；｝\\_Michel Marcus_，2016年4月18日

%Y参考A080340、A039669、A118955（允许k=0）。

%K nonn，简单

%O 1,1号机组

%A _Michel Marcus_，2012年10月19日