login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A323907 Lexicographically earliest positive sequence such that a(i) = a(j) => A004718(i) = A004718(j), for all i, j >= 0. 4
1, 2, 3, 4, 2, 1, 5, 6, 3, 4, 1, 2, 4, 3, 7, 8, 2, 1, 5, 6, 1, 2, 3, 4, 5, 6, 2, 1, 6, 5, 9, 10, 3, 4, 1, 2, 4, 3, 7, 8, 1, 2, 3, 4, 2, 1, 5, 6, 4, 3, 7, 8, 3, 4, 1, 2, 7, 8, 4, 3, 8, 7, 11, 12, 2, 1, 5, 6, 1, 2, 3, 4, 5, 6, 2, 1, 6, 5, 9, 10, 1, 2, 3, 4, 2, 1, 5, 6, 3, 4, 1, 2, 4, 3, 7, 8, 5, 6, 2, 1, 6, 5, 9, 10, 2, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Restricted growth sequence transform of A004718, Per Nørgård's "infinity sequence".

The composer Per Nørgård's name is also written in the OEIS as Per Noergaard.

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..65535

PROG

(PARI)

up_to = 65535;

rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om, invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om, invec[i], i); outvec[i] = u; u++ )); outvec; };

A004718list(up_to) = { my(v=vector(up_to)); v[1]=1; v[2]=-1; for(n=3, up_to, v[n] = if(n%2, 1+v[n>>1], -v[n/2])); (v); }; \\ After code in A004718.

v004718 = A004718list(up_to);

A004718(n) = if(!n, n, v004718[n]);

v323907 = rgs_transform(vector(1+up_to, n, A004718(n-1)));

A323907(n) = v323907[1+n];

CROSSREFS

Restricted growth sequence transform of A004718, A323908 and A323909.

Cf. A083866 (positions of ones).

Sequence in context: A107474 A114734 A299755 * A214065 A182710 A182711

Adjacent sequences:  A323904 A323905 A323906 * A323908 A323909 A323910

KEYWORD

nonn

AUTHOR

Antti Karttunen, Feb 09 2019

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 31 17:46 EDT 2020. Contains 334748 sequences. (Running on oeis4.)