login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A083866 Positions of zeros in Per Nørgård's infinity sequence (A004718). 6
0, 5, 10, 17, 20, 27, 34, 40, 45, 54, 65, 68, 75, 80, 85, 90, 99, 105, 108, 119, 130, 136, 141, 150, 160, 165, 170, 177, 180, 187, 198, 210, 216, 221, 238, 257, 260, 267, 272, 277, 282, 291, 297, 300, 311, 320, 325, 330, 337, 340, 347, 354, 360 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
COMMENTS
First differences seem to be always >2.
Many (but not all) prime members are in A005107.
The composer Per Nørgård's name is also written in the OEIS as Per Noergaard.
LINKS
Yu Hin (Gary) Au, Christopher Drexler-Lemire, and Jeffrey Shallit, Notes and note pairs in Norgard's infinity series, Journal of Mathematics and Music, Volume 11, Issue 1, 2017, pages 1-19.
PROG
(Haskell)
a083866 n = a083866_list !! n
a083866_list = filter ((== 0) . a004718) [0..]
-- Reinhard Zumkeller, Mar 19 2015, Nov 10 2012
(Python)
from itertools import groupby, islice
def A083866_gen(startvalue=0): # generator of terms >= startvalue
n, c = max(0, startvalue), 0
for k, g in groupby(bin(n)[2:]):
c = c+len(list(g)) if k == '1' else (-c if len(list(g))&1 else c)
while True:
if c == 0: yield n
n += 1
c = c-t-1 if (t:=(~n & n-1).bit_length())&1 else t+1-c
A083866_list = list(islice(A083866_gen(), 20)) # Chai Wah Wu, Mar 02 2023
CROSSREFS
Sequence in context: A313946 A313947 A313948 * A313949 A313950 A313951
KEYWORD
nonn
AUTHOR
Ralf Stephan, May 07 2003
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 25 10:34 EDT 2024. Contains 371967 sequences. (Running on oeis4.)