%I #9 Jul 09 2015 05:34:29
%S 1,4,1,8,6,8,1,3,1,8,7,8,3,7,3,8,1,8,3,5,6,9,7,5,7,3,9,7,7,2,7,1,5,3,
%T 3,3,3,5,9,7,8,5,4,8,5,6,7,2,3,7,8,0,1,0,0,1,9,1,6,8,2,2,1,9,3,2,3,3,
%U 5,3,3,8,9,8,9,2,7,9,4,5
%N Value of DIS (Decimal Integer Series) constant based on the sequence of powers of 3.
%F Equals sum_{n>=0} p/100^A055642(p) where p = A000244(n).
%e Equals 0.1418681318783738183569757397727153333597854856723780...
%p shftdgs := proc(n)
%p n/100^A055642(n) ;
%p end proc:
%p Digits := 120 :
%p x := 0.0 ;
%p for n from 0 to 200 do
%p x := x+evalf(shftdgs(A000244(n))) ;
%p if n mod 10 = 0 then
%p print(x) ;
%p end if;
%p end do:
%Y Cf. A258718, A259837, A259838 (powers of 2).
%K nonn,cons,base
%O 0,2
%A _R. J. Mathar_, Jul 09 2015