A051023 - OEIS (original) (raw)

1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1

COMMENTS

A092539(n) gives the value of prefix of length n+1, seen as a binary number. - Reinhard Zumkeller, Jun 08 2013

Also middle column of rule 86 1-D cellular automaton, from a lone 1 cell, as rule 86 is the mirror image of rule 30. - Antti Karttunen, Oct 03 2019

LINKS

Eric Weisstein's World of Mathematics, Rule 30

MATHEMATICA

CellularAutomaton[30, {{1}, 0}, 101, {All, {0}}]//Flatten

PROG

(Haskell)

(PARI)

\\ Or for fast creation of b-files:

A051023write(up_to) = { my(s=1, n=0); for(n=0, up_to, write("b051023.txt", n, " ", ((s>>n)%2)); s = A269160(s)); }; \\ Antti Karttunen, Oct 03 2019

CROSSREFS

Characteristic function of A327984 (gives the positions of ones in this sequence), A327985 (positions of zeros).

Cf. A365254 (converted to base 10).

EXTENSIONS

Corrected from 64th term by Daniel B. Cristofani (cristofd(AT)hevanet.com), Jan 07 2004