|
|
|
|
#11 by OEIS Server at Thu Jun 06 03:48:52 EDT 2024
|
| LINKS
|
Amiram Eldar, <a href="/A082508/b082508_1.txt">Table of n, a(n) for n = 1..10000</a>
|
|
|
|
#10 by Peter Luschny at Thu Jun 06 03:48:52 EDT 2024
|
|
|
Discussion
|
Thu Jun 06
| 03:48
| OEIS Server: Installed first b-file as b082508.txt.
|
|
|
|
#9 by Michel Marcus at Thu Jun 06 01:32:31 EDT 2024
|
|
|
|
#8 by Amiram Eldar at Thu Jun 06 01:02:17 EDT 2024
|
|
|
|
#7 by Amiram Eldar at Thu Jun 06 00:37:54 EDT 2024
|
| LINKS
|
Amiram Eldar, <a href="/A082508/b082508_1.txt">Table of n, a(n) for n = 1..10000</a>
|
|
|
|
#6 by Amiram Eldar at Thu Jun 06 00:37:40 EDT 2024
|
| NAME
|
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.
|
| FORMULA
|
a(n) = A001223(A061771(n)). - Amiram Eldar, Jun 06 2024
|
| 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
|
Cf. A001223, A061771.
|
| STATUS
|
approved
editing
|
|
|
|
#5 by N. J. A. Sloane at Tue Oct 15 22:31:56 EDT 2013
|
| AUTHOR
|
_Labos E. (labos(AT)ana.sote.hu), Elemer_, Apr 28 2003
|
|
|
Discussion
|
Tue Oct 15
| 22:31
| OEIS Server: https://oeis.org/edit/global/2029
|
|
|
|
#4 by N. J. A. Sloane at Fri Feb 24 03:00:00 EST 2006
|
| MATHEMATICA
|
Do[s=Log[2, , Prime[n+1]-Prime[n]]; If[IntegerQ[s], ], Print[Prime[n+1]]], {]]], {n, , 1, , 1000}]
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|
#3 by N. J. A. Sloane at Tue Jan 24 03:00:00 EST 2006
|
| KEYWORD
|
nonn,new
nonn
|
| AUTHOR
|
Labos E. (labos(AT)ana1ana.sote.hu), Apr 28 2003
|
|
|
|
#2 by N. J. A. Sloane at Thu Feb 19 03:00:00 EST 2004
|
| NAME
|
Differences between consecutive primes that beingare powers of 2 in order of their appearence.appearance. Differences not powers of 2 are deleted from A001223.
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|