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,3

Links

Table of n, a(n) for n=0..77.

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

Adjacent sequences: A157521 A157522 A157523 * A157525 A157526 A157527

Keyword

nonn,base

Author

Paul Curtz, Mar 02 2009

Extensions

Extended by R. J. Mathar, Apr 10 2009

Status

approved