OFFSET
1,1
MATHEMATICA
Do[s=Log[2, Prime[n+1]-Prime[n]]; If[ !IntegerQ[s], Print[Prime[n+1]]], {n, 1, 1000}]
Module[{nn=250, twos}, twos=2^Range[0, Floor[Log[2, Prime[nn]]]]; Select[ Differences[ Prime[Range[nn]]], !MemberQ[twos, #]&]] (* Harvey P. Dale, Apr 18 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 28 2003
STATUS
approved