Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
The OEIS is supported by the many generous donors to the OEIS Foundation.
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A366279
The least number with same prime signature as A366275, where A366275(n) = A163511(A057889(n)).
3
1, 2, 4, 2, 8, 4, 6, 2, 16, 8, 12, 6, 12, 4, 6, 2, 32, 16, 24, 12, 36, 12, 30, 6, 24, 8, 12, 6, 12, 4, 6, 2, 64, 32, 48, 24, 72, 36, 60, 12, 72, 24, 60, 30, 60, 12, 30, 6, 48, 16, 24, 12, 36, 12, 30, 6, 24, 8, 12, 6, 12, 4, 6, 2, 128, 64, 96, 48, 144, 72, 120, 24, 216, 72, 180, 60, 180, 36, 60, 12, 144, 48, 120, 60
(list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..16383
FORMULA
a(n) = A046523(A366275(n)) = A046523(A163511(A057889(n))).
a(n) = A278531(A057889(n)).
PROG
(PARI)
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };
A030101(n) = if(n<1, 0, subst(Polrev(binary(n)), x, 2));
A057889(n) = if(!n, n, A030101(n/(2^valuation(n, 2))) * (2^valuation(n, 2)));
A163511(n) = if(!n, 1, my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
A366275(n) = A163511(A057889(n));
A366279(n) = A046523(A366275(n));
CROSSREFS
Cf. A046523, A057889, A163511, A278531, A366275, A366280 (rgs-transform).
Cf. also A286601, A366261.
Sequence in context: A337194 A343997 A278531 * A364297 A370353 A095728
Adjacent sequences: A366276 A366277 A366278 * A366280 A366281 A366282
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 06 2023
STATUS
approved

Lookup Welcome Wiki Register Music Plot 2 Demos Index WebCam Contribute Format Style Sheet Transforms Superseeker Recents
The OEIS Community
Maintained by The OEIS Foundation Inc.
Last modified October 21 11:47 EDT 2024. Contains 376980 sequences.
License Agreements, Terms of Use, Privacy Policy