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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A183092 a(n) is the product of divisors d of n such that d is not equal to m^k where m = noncomposite number, k >= 1. 2
1, 1, 1, 1, 1, 6, 1, 1, 1, 10, 1, 72, 1, 14, 15, 1, 1, 108, 1, 200, 21, 22, 1, 1728, 1, 26, 1, 392, 1, 27000, 1, 1, 33, 34, 35, 46656, 1, 38, 39, 8000, 1, 74088, 1, 968, 675, 46, 1, 82944, 1, 500, 51, 1352, 1, 5832, 55, 21952, 57, 58, 1, 388800000, 1, 62, 1323, 1, 65, 287496, 1, 2312, 69, 343000, 1, 80621568, 1, 74, 1125, 2888, 77 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,6

COMMENTS

For n = 12, the set of such divisors is {6, 12}; a(12) = 6*12 = 72.

a(n) is also the product of divisors d of n such that d is not equal to p^k where p = prime, k >=1. For n = 12, the set of such divisors is {1, 6, 12}; a(12) = 1*6*12 = 72.

LINKS

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

FORMULA

a(n) = A007955(n) / A183091(n).

a(1) = 1, a(p) = 1, a(pq) = pq, a(pq...z) = (pq...z)^(2^(k-1)-1), a(p^k) = 1, for p, q = primes, k = natural numbers, pq...z = product of k (k > 2) distinct primes p, q, ..., z.

MAPLE

A183092 := proc(n) local a, d; a := 1 ; for d in numtheory[divisors](n) minus {1} do if nops( numtheory[factorset](d)) > 1 then a := a*d; end if; end do: a ; end proc: # R. J. Mathar, Apr 14 2011

PROG

(PARI) A183092(n) = factorback(apply(d -> if(isprimepower(d), 1, d), divisors(n))); \\ Antti Karttunen, Aug 06 2018

CROSSREFS

Cf. A007955, A183091.

Sequence in context: A290479 A304404 A290480 * A050449 A316623 A108131

Adjacent sequences:  A183089 A183090 A183091 * A183093 A183094 A183095

KEYWORD

nonn

AUTHOR

Jaroslav Krizek, Dec 25 2010

EXTENSIONS

More terms from Antti Karttunen, Aug 06 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 26 20:19 EDT 2021. Contains 348269 sequences. (Running on oeis4.)