The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A092099 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A092099

Smallest prime between 2^n and 2^(n+1) having a minimal number of 1's in binary representation, A091936(n) - 2^n.
(history; published version)

#9 by N. J. A. Sloane at Thu Oct 31 12:17:24 EDT 2013

MATHEMATICA

(* First run the program for A091936 to define f[n] *) Join[{0}, Table[ f[n] - 2^n, {n, 2, 56}]] (* _Robert G. Wilson v _ *)

Discussion

Thu Oct 31

12:17

OEIS Server: https://oeis.org/edit/global/2036

#8 by Russ Cox at Fri Mar 30 17:30:59 EDT 2012

AUTHOR

_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Feb 19 2004

Discussion

Fri Mar 30

17:30

OEIS Server: https://oeis.org/edit/global/156

#7 by T. D. Noe at Tue Feb 28 18:06:33 EST 2012

STATUS

proposed

approved

#6 by Joerg Arndt at Sat Feb 25 13:08:13 EST 2012

STATUS

editing

proposed

#5 by Joerg Arndt at Sat Feb 25 13:08:10 EST 2012

MATHEMATICA

(* First run the program for A091936 to define f[n] *) Join[{0}, Table[ f[n] - 2^n, {n, 2, 56}]] (* RGWv Robert G. Wilson v *)

STATUS

proposed

editing

#4 by Alonso del Arte at Mon Feb 20 17:57:40 EST 2012

STATUS

editing

proposed

Discussion

Sat Feb 25

13:07

Joerg Arndt: Suggest to email R. Wilson.

#3 by Alonso del Arte at Tue Feb 14 18:42:49 EST 2012

MATHEMATICA

(* First run the program for A091936 to define f[n] *) Join[{0}, Table[ f[n] - 2^n, {n, 2, 56}]] (* RGWv *)

Discussion

Tue Feb 14

18:43

Alonso del Arte: It wasn't until today that I noticed: f is undefined!

Mon Feb 20

17:57

Alonso del Arte: I think the name needs an adjustment. Something along the lines of:
"Difference between smallest prime between ... and 2^n"

#2 by Alonso del Arte at Fri Feb 10 12:43:36 EST 2012

KEYWORD

nonn,base

STATUS

approved

editing

#1 by N. J. A. Sloane at Sat Jun 12 03:00:00 EDT 2004

NAME

Smallest prime between 2^n and 2^(n+1) having a minimal number of 1's in binary representation, A091936(n) - 2^n.

DATA

0, 1, 3, 1, 5, 3, 3, 1, 9, 9, 5, 3, 17, 33, 3, 1, 2049, 3, 65, 33, 17, 129, 9, 513, 35, 131073, 32769, 3, 32769, 3, 65, 81, 17, 513, 16385, 8193, 9, 2049, 33554433, 97, 65, 129, 515, 131073, 129, 32769, 5, 21, 1073741825, 8388609, 65, 2097153, 5, 8589934593, 3, 81

OFFSET

1,3

FORMULA

A091936(n) - A000079(n).

MATHEMATICA

Join[{0}, Table[ f[n] - 2^n, {n, 2, 56}]]

CROSSREFS

Cf. A091936.

KEYWORD

nonn

AUTHOR

Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 19 2004

STATUS

approved