A304746 Restricted growth sequence transform of A291760(n), formed from 2-digits in ternary representation of A254103(n).

1, 1, 2, 1, 2, 1, 3, 4, 2, 1, 2, 4, 5, 1, 3, 1, 2, 6, 7, 4, 2, 6, 5, 1, 8, 1, 2, 6, 5, 1, 2, 4, 2, 9, 8, 4, 10, 1, 3, 11, 2, 6, 7, 1, 8, 1, 3, 6, 12, 6, 7, 9, 2, 9, 13, 4, 8, 14, 15, 4, 2, 6, 5, 11, 2, 16, 17, 4, 12, 6, 5, 11, 18, 1, 2, 19, 5, 9, 13, 1, 2, 9, 8, 14, 10, 1, 2, 4, 12, 1, 2, 6, 5, 9, 8, 1, 20, 9, 8, 14, 10, 21, 12, 1, 2, 21, 12

Offset

0,3

Links

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

Prog

(PARI)
A254103(n) = if(!n, n, if(!(n%2), (3*A254103(n/2))-1, (3*(1+A254103((n-1)/2)))\2));
A289814(n) = { my (d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==2, 1, 0)), 2); } \\ From A289814
A291760(n) = A289814(A254103(n));
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; };
v304746 = rgs_transform(vector(65537, n, A291760(n-1)));
A304746(n) = v304746[1+n];

Crossrefs

Cf. A254103, A289814, A291760.

Cf. also A304740, A304748.

Sequence in context: A330953 A360308 A325702 * A304748 A323903 A329382

Adjacent sequences: A304743 A304744 A304745 * A304747 A304748 A304749

Keyword

nonn,look

Author

Antti Karttunen, May 29 2018

Status

approved