|
|
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
|
|
|
|