A304757 Restricted growth sequence transform of A046523(A304755(n)).

1, 2, 3, 2, 4, 5, 6, 4, 5, 7, 8, 9, 10, 8, 9, 7, 11, 3, 2, 4, 12, 13, 3, 14, 8, 11, 12, 4, 15, 16, 3, 2, 4, 12, 13, 3, 14, 8, 11, 12, 4, 15, 17, 3, 13, 18, 13, 19, 12, 20, 8, 14, 21, 14, 8, 22, 23, 12, 19, 24, 3, 2, 4, 12, 13, 3, 14, 8, 11, 12, 4, 15, 16, 13, 3, 12, 19, 18, 13, 21, 14, 20, 19, 12, 25, 26, 27, 28, 29, 30, 26, 31, 32, 33, 4, 5, 6, 15, 12, 4

Offset

1,2

Links

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

Prog

(PARI)
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; };
v304757 = rgs_transform(vector(up_to, n, A046523(A304755(n)))); \\ Needs also code from A304755
A304757(n) = v304757[n];

Crossrefs

Cf. A046523, A304755.

Compare also to the scatter plots of A304098, A304729, A304730 and A304732.

Sequence in context: A297157 A304492 A305303 * A140503 A304732 A304729

Adjacent sequences: A304754 A304755 A304756 * A304758 A304759 A304760

Keyword

nonn

Author

Antti Karttunen, May 21 2018

Status

approved