A304743 Restricted growth sequence transform of A046523(A280866(n)).

1, 2, 3, 2, 4, 5, 2, 4, 6, 3, 2, 4, 7, 2, 4, 6, 4, 6, 8, 4, 6, 4, 2, 2, 4, 9, 6, 2, 4, 10, 2, 4, 11, 5, 3, 4, 9, 12, 2, 4, 8, 6, 2, 4, 6, 4, 4, 6, 8, 4, 6, 8, 3, 2, 4, 13, 6, 2, 4, 14, 2, 4, 9, 6, 2, 4, 9, 9, 4, 6, 15, 6, 4, 4, 4, 9, 13, 4, 8, 12, 4, 9, 13, 4, 9, 16, 2, 4, 8, 9, 11, 2, 4, 6, 4, 7, 2, 4, 6, 12, 2, 4, 15, 4, 6

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..65539

Prog

(PARI)
\\ Needs also code from A280866:
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
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; };
v304743 = rgs_transform(vector(65539, n, A046523(A280866(n))));
A304743(n) = v304743[n];

Crossrefs

Cf. A046523, A280866, A304742.

Sequence in context: A120499 A027749 A226208 * A214540 A214595 A357255

Adjacent sequences: A304740 A304741 A304742 * A304744 A304745 A304746

Keyword

nonn

Author

Antti Karttunen, May 18 2018

Status

approved