The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A095075

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A095075

Primes in whose binary expansion the number of 1-bits is less than or equal to number of 0-bits.
(history; published version)

#30 by Harvey P. Dale at Wed Sep 27 16:50:40 EDT 2023

STATUS

editing

approved

#29 by Harvey P. Dale at Wed Sep 27 16:50:37 EDT 2023

MATHEMATICA

Select[Prime[Range[150]], DigitCount[#, 2, 1]<=DigitCount[#, 2, 0]&] (* Harvey P. Dale, Sep 27 2023 *)

STATUS

approved

editing

#28 by Joerg Arndt at Tue Jul 25 04:04:07 EDT 2023

STATUS

reviewed

approved

#27 by Michel Marcus at Tue Jul 25 02:04:42 EDT 2023

STATUS

proposed

reviewed

#26 by Michel Marcus at Tue Jul 25 02:04:36 EDT 2023

STATUS

editing

proposed

#25 by Michel Marcus at Tue Jul 25 02:04:34 EDT 2023

PROG

(PARI) B(x) = {nB = floor(log(x)/log(2)); z1 = 0; z0 = 0;

STATUS

proposed

editing

#24 by Amiram Eldar at Tue Jul 25 01:58:56 EDT 2023

STATUS

editing

proposed

#23 by Amiram Eldar at Tue Jul 25 01:39:28 EDT 2023

CROSSREFS

Complement of A095070 in A000040. Cf. A095055.

Cf. A095055.

#22 by Amiram Eldar at Tue Jul 25 01:39:04 EDT 2023

EXAMPLE

37 is in the sequence because 37_10 = 100101_2. '100101' has three 1's and 3 0's. (StopEnd)

#21 by Amiram Eldar at Tue Jul 25 01:38:47 EDT 2023

LINKS

A. Antti Karttunen and J. John Moyer, <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a>.

MATHEMATICA

Select[Prime[Range[150]], Differences[DigitCount[#, 2]][[1]] >= 0 &] (* Amiram Eldar, Jul 25 2023 *)

STATUS

approved

editing