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

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) ; # R. J. Mathar, Jan 30 2010

Crossrefs

Cf. A087429.

Sequence in context: A320614 A030566 A007963 * A077641 A329547 A330560

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