login
A157524
a(n) = A140783(n+4)/9.
1
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,3
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
CROSSREFS
Sequence in context: A124229 A355250 A055377 * A239496 A348164 A299962
KEYWORD
nonn,base
AUTHOR
Paul Curtz, Mar 02 2009
EXTENSIONS
Extended by R. J. Mathar, Apr 10 2009
STATUS
approved