cp's OEIS Frontend

A259929 Value of DIS (Decimal Integer Series) constant based on the sequence of cubes.

%I A259929 #5 Jul 09 2015 05:34:37
%S A259929 1,0,1,6,7,9,7,7,3,8,2,7,6,8,8,8,1,7,7,0,4,4,6,3,7,4,7,3,1,6,2,4,5,5,
%T A259929 4,3,5,5,6,6,8,8,2,7,7,5,1,2,3,4,7,3,8,7,2,6,3,1,9,3,0,6,2,0,8,3,1,7,
%U A259929 5,5,0,9,8,4,4,0,6,3,9,0,4,0,9,9,8,6,0,8,0,6,8,8,3,3,9,9,8,2,4,7
%N A259929 Value of DIS (Decimal Integer Series) constant based on the sequence of cubes.
%F A259929 Equals sum_{n>=1} c/100^A055642(c) where c=A000578(n).
%e A259929 Equals 0.10167977382768881770446374731...
%p A259929 Digits := 220 ;
%p A259929 x := 0.0 ;
%p A259929 for ndigs from 1 to 200 do
%p A259929     # 10^(ndigs-1)<= n^3  < 10^ndigs
%p A259929     nmin := ceil(10^((ndigs-1)/3)) ;
%p A259929     nmax := floor( root[3](10^(ndigs)-1) ) ;
%p A259929     if nmax >= nmin then
%p A259929         # sum nmin^3.. nmax^3
%p A259929         csu := A000537(nmax)-A000537(nmin-1) ;
%p A259929         x := x+evalf(csu/100^ndigs) ;
%p A259929         printf("%.120f\n",x) ;
%p A259929     end if;
%p A259929 end do:
%Y A259929 Cf. A258718, A259838.
%K A259929 nonn,cons,base
%O A259929 0,4
%A A259929 _R. J. Mathar_, Jul 09 2015