|
%I #8 Feb 03 2019 06:51:42
%S 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,
%T 22,19,20,19,20,19,20,21,18,21,23,20,22,23,27,29,27,33,30,27,29,31,32,
%U 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
%N a(n) = A140783(n+4)/9.
%p 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:
%p A140783 := proc(n) add(i,i=convert(A091137(n),base,10)) ; end:
%p A157524 := proc(n) A140783(n+4)/9; end: seq(A157524(n),n=0..120) ; # _R. J. Mathar_, Apr 10 2009
%K nonn,base
%O 0,3
%A _Paul Curtz_, Mar 02 2009
%E Extended by _R. J. Mathar_, Apr 10 2009
|
