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

Author

Antti Karttunen, May 18 2018

Keywords

• nonn

Links

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

Crossrefs

Cf. A046523, A280866, A304742.

Programs

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];