The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A329899 If A181815(n) is odd, a(n) = A064989(A025487(n)), otherwise a(n) = A025487(n)/2. 5
 1, 1, 2, 2, 4, 6, 8, 12, 6, 16, 4, 24, 30, 32, 36, 48, 60, 64, 72, 12, 96, 30, 8, 120, 128, 144, 180, 192, 210, 216, 240, 256, 288, 360, 384, 420, 432, 36, 480, 512, 24, 576, 60, 16, 720, 768, 840, 864, 900, 960, 1024, 1080, 1152, 210, 1260, 1296, 1440, 1536, 1680, 1728, 1800, 1920, 2048, 2160, 2304, 2310, 2520, 2592, 72 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS If 2-adic and 3-adic valuations of A025487(n) are equal, then a(n) = A064989(A025487(n)), otherwise a(n) = A025487(n)/2. Only terms of A025487 occur, and each one of them occurs exactly twice. LINKS Antti Karttunen, Table of n, a(n) for n = 1..10000 FORMULA If A181815(n) is odd, a(n) = A064989(A025487(n)), otherwise a(n) = A025487(n)/2. a(n) = A025487(A329904(n)). PROG (PARI) A181815(n) = A329900(A025487(n)); A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)}; A329899(n) = if(A181815(n)%2, A064989(A025487(n)), A025487(n)/2); CROSSREFS Cf. A025487, A064989, A181815, A329897, A329898, A329904. Sequence in context: A241383 A258125 A147982 * A051466 A320193 A260215 Adjacent sequences:  A329896 A329897 A329898 * A329900 A329901 A329902 KEYWORD nonn AUTHOR Antti Karttunen, Dec 24 2019 STATUS approved

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

Last modified May 7 16:00 EDT 2021. Contains 343652 sequences. (Running on oeis4.)