OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[Round[p*Log[2]]], AppendTo[lst, p]], {n, 6!}]; lst
nil2[n_]:=Module[{c=n Log[2], ce, fl}, ce=Ceiling[c]; fl=Floor[c]; If[ c-fl < ce- c, PrimeQ[fl], PrimeQ[ce]]]; Select[Prime[Range[300]], nil2] (* Harvey P. Dale, May 05 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 13 2009
STATUS
approved