The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A048719

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

A048719

Binary expansion matches ((0)*0011)*(0*).
(history; published version)

#15 by N. J. A. Sloane at Fri Jan 01 11:23:34 EST 2021

STATUS

proposed

approved

#14 by Michel Marcus at Thu Dec 31 03:37:21 EST 2020

STATUS

editing

proposed

#13 by Michel Marcus at Thu Dec 31 03:37:09 EST 2020

KEYWORD

nonn,base,easy,changed

AUTHOR

_Antti Karttunen, _, Mar 30.3. 1999

STATUS

proposed

editing

#12 by Jean-François Alcover at Thu Dec 31 03:35:20 EST 2020

STATUS

editing

proposed

#11 by Jean-François Alcover at Thu Dec 31 03:35:15 EST 2020

MATHEMATICA

filterQ[n_] := With[{bb = IntegerDigits[n, 2]}, !MatchQ[bb, {1}|{1, 0, ___}|{___, 0, 1}|{___, 0, 1, 0, ___}|{___, 1, 1, 1, ___}|{___, 1, 0, 1, ___}]];

Select[Range[0, 3096], filterQ] (* Jean-François Alcover, Dec 31 2020 *)

STATUS

approved

editing

#10 by Charles R Greathouse IV at Mon Oct 03 12:52:32 EDT 2016

STATUS

editing

approved

#9 by Charles R Greathouse IV at Mon Oct 03 12:52:30 EDT 2016

FORMULA

a(n) = 3*A048718(n).

PROG

(PARI) is(n)=n%3==0 && !bitand(n/3, 14*n/3) \\ Charles R Greathouse IV, Oct 03 2016

STATUS

approved

editing

#8 by Charles R Greathouse IV at Sun Sep 23 17:49:12 EDT 2012

STATUS

editing

approved

#7 by Charles R Greathouse IV at Sun Sep 23 17:49:00 EDT 2012

KEYWORD

nonn,easy

STATUS

approved

editing

#6 by Russ Cox at Sun Jul 10 18:18:19 EDT 2011

LINKS

<a href="/Sindx_index/Con.html#CongruCrossDomain">Index entries for sequences defined by congruent products between domains N and GF(2)[X]</a>

Discussion

Sun Jul 10

18:18

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