The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A004753

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

A004753

Numbers whose binary expansion contains 100.
(history; published version)

#23 by Jon E. Schoenfield at Thu Oct 26 01:07:34 EDT 2023

STATUS

editing

approved

#22 by Jon E. Schoenfield at Thu Oct 26 01:07:32 EDT 2023

AUTHOR

N. J. A. Sloane.

STATUS

approved

editing

#21 by Charles R Greathouse IV at Sat Feb 11 23:22:47 EST 2017

STATUS

editing

approved

#20 by Charles R Greathouse IV at Sat Feb 11 23:22:44 EST 2017

PROG

(PARI) is(n)=while(n>3, if(bitand(n, 7)==4, return(1)); n>>=1); 0 \\ Charles R Greathouse IV, Feb 11 2017

STATUS

approved

editing

#19 by Charles R Greathouse IV at Sat Feb 11 23:19:29 EST 2017

STATUS

editing

approved

#18 by Charles R Greathouse IV at Sat Feb 11 23:19:26 EST 2017

LINKS

<a href="/index/Ar#2-automatic">Index entries for 2-automatic sequences</a>.

PROG

(PARI) is(n)=while(n>3, if(bitand(n, 7)==4, return(1))); 0 \\ Charles R Greathouse IV, Feb 11 2017

CROSSREFS

Cf. A004748, A004749, A004750, A004752.

STATUS

approved

editing

#17 by Reinhard Zumkeller at Thu Sep 25 13:20:07 EDT 2014

STATUS

editing

approved

#16 by Reinhard Zumkeller at Thu Sep 25 12:59:54 EDT 2014

CROSSREFS

Subsequence of A247875.

STATUS

approved

editing

#15 by Harvey P. Dale at Fri Mar 14 12:56:36 EDT 2014

STATUS

editing

approved

#14 by Harvey P. Dale at Fri Mar 14 12:56:29 EDT 2014

MATHEMATICA

Select[Range[110], MemberQ[Partition[IntegerDigits[#, 2], 3, 1], {1, 0, 0}]&] (* Harvey P. Dale, Mar 14 2014 *)

STATUS

approved

editing