login
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
OFFSET
1,2
LINKS
FORMULA
a(n) = A001223(A061771(n)). - Amiram Eldar, Jun 06 2024
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
Sequence in context: A045841 A040003 A106469 * A327730 A365348 A372330
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 28 2003
STATUS
approved