A100762 - OEIS

This site is supported by donations to The OEIS Foundation.

A100762

Let n = 2^e_2 * 3^e_ * 5^e_ * ... be the prime factorization of n and let P(n) = A100549(n); then a(n) = Product_{ q <= P(n) } q^e_q; a(1) = 1 by convention.

1, 2, 1, 4, 1, 2, 1, 8, 9, 2, 1, 12, 1, 2, 1, 16, 1, 18, 1, 4, 1, 2, 1, 24, 1, 2, 27, 4, 1, 2, 1, 32, 1, 2, 1, 36, 1, 2, 1, 8, 1, 2, 1, 4, 9, 2, 1, 48, 1, 2, 1, 4, 1, 54, 1, 8, 1, 2, 1, 12, 1, 2, 9, 64, 1, 2, 1, 4, 1, 2, 1, 72, 1, 2, 3, 4, 1, 2, 1, 80, 81, 2, 1, 12, 1, 2, 1, 8, 1, 18, 1, 4, 1, 2, 1, 96, 1 (list; graph; refs; listen; history; internal format)

	OFFSET	`1,2`
	MAPLE	`# First load the procedure pp from A100549` `# B = prod_{p <= pp(n)} p^e_p` `B := proc(n) local v, f, pv; global pp; option remember;` `pv := pp(n);` `v := 1:` `for f in op(2..-1, ifactors(n)) while f[1] <= pv do` `v := v * f[1]^f[2];` `end do;` `return v;` `end proc;`
	CROSSREFS	`Cf. A100549, A100417, A141586, A082725.` `Sequence in context: A079891 A108738 A064405 * A059147 A091891 A070194` `Adjacent sequences: A100759 A100760 A100761 * A100763 A100764 A100765`
	KEYWORD	`nonn`
	AUTHOR	`David Applegate and N. J. A. Sloane (njas(AT)research.att.com), Sep 15 2008`

Content is available under The OEIS End-User License Agreement .

Last modified February 14 16:41 EST 2012. Contains 205635 sequences.