The OEIS is supported by the many generous donors to the OEIS Foundation.

 Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 60th year, we have over 367,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”). Other ways to Give
 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A304729 Restricted growth sequence transform of A046523(A303751(n)). 6
 1, 2, 3, 2, 4, 5, 6, 5, 4, 7, 2, 3, 8, 3, 7, 4, 9, 4, 10, 11, 12, 13, 12, 14, 11, 12, 13, 12, 10, 15, 16, 5, 4, 7, 4, 9, 6, 17, 6, 9, 18, 2, 3, 8, 3, 7, 4, 9, 4, 7, 19, 3, 8, 20, 8, 19, 7, 18, 7, 21, 12, 13, 22, 13, 23, 15, 16, 15, 10, 21, 4, 7, 19, 7, 18, 9, 24, 9, 25, 10, 26, 11, 12, 13, 12, 10, 15, 16, 15, 10, 21, 12, 13, 22, 13, 21, 10, 25, 10, 27, 28 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Antti Karttunen, Table of n, a(n) for n = 1..76503 PROG (PARI) 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; }; A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); }; \\ From A046523 v304729 = rgs_transform(vector(76503, n, A046523(A303751(n)))); \\ Needs also code from A303751 A304729(n) = v304729[n]; CROSSREFS Cf. A046523, A303751. Cf. also A304728, A304098, A304732. Sequence in context: A304757 A140503 A304732 * A297161 A227842 A304731 Adjacent sequences: A304726 A304727 A304728 * A304730 A304731 A304732 KEYWORD nonn AUTHOR Antti Karttunen, May 19 2018 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 7 10:56 EST 2023. Contains 367650 sequences. (Running on oeis4.)