|
|
A082508
|
|
Differences between consecutive primes that are powers of 2 in order of their appearance. Differences the are not powers of 2 are deleted from A001223.
|
|
4
|
|
|
1, 2, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 8, 4, 2, 4, 2, 4, 4, 2, 2, 4, 2, 2, 4, 2, 4, 2, 4, 2, 2, 4, 2, 4, 2, 4, 2, 4, 8, 4, 8, 4, 8, 2, 2, 4, 8, 4, 2, 4, 8, 4, 8, 4, 2, 2, 2, 4, 2, 2, 4, 2, 4, 8, 8, 8, 4, 8, 4, 8, 4, 2, 2, 4, 2, 4, 2, 4, 4, 2, 4, 4, 8, 8, 4, 4, 8, 4, 2, 2, 2, 2, 4, 2, 4, 8, 2, 8, 8, 4, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Do[s=Log[2, Prime[n+1]-Prime[n]]; If[IntegerQ[s], Print[Prime[n+1]]], {n, 1, 1000}]
|
|
PROG
|
(PARI) lista(pmax) = {my(p1 = 2, gap); forprime(p2 = 3, pmax, gap = p2 - p1; if(gap >> valuation(gap, 2) == 1, print1(gap, ", ")); p1 = p2); } \\ Amiram Eldar, Jun 06 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|