id:A100762 - OEIS Search Results

Search: id:A100762

Displaying 1-1 of 1 results found.

page 1

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.

+0
8

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; listen)

	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 this_sequence A059147 A091891 A070194` `Adjacent sequences: A100759 A100760 A100761 this_sequence A100763 A100764 A100765`
	KEYWORD	`nonn`
	AUTHOR	`David Applegate and N. J. A. Sloane (njas(AT)research.att.com), Sep 15 2008`

page 1

Search completed in 0.002 seconds

Last modified December 8 08:31 EST 2009. Contains 170430 sequences.

AT&T Labs Research