

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..87.


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

Cf. A001223, A082508.
Sequence in context: A343195 A173068 A113427 * A226280 A331944 A103337
Adjacent sequences: A082506 A082507 A082508 * A082510 A082511 A082512


KEYWORD

nonn


AUTHOR

Labos Elemer, Apr 28 2003


STATUS

approved



