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

Author

Giovanni Teofilatto, Mar 07 2008

Keywords

• easy
• nonn

Crossrefs

Cf. A087429.

Programs

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

Extensions

Terms beyond a(18) from R. J. Mathar, Jan 30 2010