A157524 a(n) = A140783(n+4)/9.

1, 1, 2, 2, 3, 3, 3, 3, 5, 5, 5, 7, 6, 6, 7, 8, 6, 9, 11, 10, 9, 10, 11, 11, 11, 14, 13, 15, 21, 22, 19, 20, 19, 20, 19, 20, 21, 18, 21, 23, 20, 22, 23, 27, 29, 27, 33, 30, 27, 29, 31, 32, 36, 38, 35, 35, 39, 37, 35, 34, 41, 43, 46, 47, 42, 40, 39, 42, 46, 46, 53, 52, 45, 46, 50, 50, 56, 55

Offset: 0

Author

Paul Curtz, Mar 02 2009

Keywords

• nonn
• base

Programs

Maple

A091137 := proc(n) local a,p ; a := 1 ; p := 2 ; while floor(n/(p-1)) > 0 do a := a*p^floor(n/(p-1)) ; p := nextprime(p) ; od: RETURN(a) ; end:
A140783 := proc(n) add(i,i=convert(A091137(n),base,10)) ; end:
A157524 := proc(n) A140783(n+4)/9; end: seq(A157524(n),n=0..120) ; # R. J. Mathar, Apr 10 2009

Extensions

Extended by R. J. Mathar, Apr 10 2009