A137222 - OEIS

This site is supported by donations to The OEIS Foundation.

A137222

Partial sums of A087429.

1, 2, 2, 3, 3, 4, 4, 5, 6, 7, 7, 8, 8, 8, 8, 9, 9, 10, 10, 11, 12, 13, 13, 14, 15, 15, 16, 17, 17, 18, 18, 19, 20, 20, 20, 21, 21, 21, 21, 22, 22, 23, 23, 23, 24, 25, 25, 26, 26, 27, 27, 28, 28, 29, 29, 30, 31, 32, 32, 33, 33, 33, 33, 34, 34, 35, 35, 36, 36, 37, 37, 38, 38, 38, 39 (list; graph; refs; listen; history; text; internal format)

	OFFSET	`1,2`
	LINKS	`Table of n, a(n) for n=1..75.`
	MAPLE	`A006530 := proc(n) numtheory[factorset](n) ; max(op(%)) ; end proc: A087429 := proc(n) if A006530(n+1) > A006530(n) then 1 ; else 0 ; end if; end proc: A137222 := proc(n) add( A087429(j), j=1..n) ; end proc: seq(A137222(n), n=1..100) ; [From R. J. Mathar, Jan 30 2010]`
	CROSSREFS	`Cf. A087429.` `Sequence in context: A092982 A030566 A007963 * A077641 A194210 A112672` `Adjacent sequences: A137219 A137220 A137221 * A137223 A137224 A137225`
	KEYWORD	`easy,nonn`
	AUTHOR	`Giovanni Teofilatto, Mar 07 2008`
	EXTENSIONS	`Terms beyond a(18) from R. J. Mathar, Jan 30 2010`
	STATUS	`approved`

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

Last modified May 20 14:21 EDT 2013. Contains 225462 sequences.