login
A082509
Differences between consecutive primes being not powers of 2 in order of their appearance. Differences which are powers of 2 are omitted from A001223.
2
6, 6, 6, 6, 6, 6, 6, 14, 6, 10, 6, 6, 6, 6, 10, 12, 12, 6, 10, 6, 6, 6, 6, 10, 14, 14, 6, 10, 6, 6, 6, 6, 10, 10, 6, 6, 12, 6, 12, 18, 6, 10, 6, 6, 6, 10, 6, 6, 6, 6, 12, 10, 6, 6, 12, 6, 10, 10, 6, 6, 6, 14, 10, 12, 10, 10, 14, 14, 20, 10, 6, 6, 14, 6, 6, 6, 12, 6, 10, 6, 10, 10, 6, 18, 6, 6, 6
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
Sequence in context: A343195 A173068 A113427 * A226280 A375658 A331944
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 28 2003
STATUS
approved