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
Keywords
Links
- Antti Karttunen, Table of n, a(n) for n = 1..65537
Crossrefs
Programs
-
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];