|
%I #18 May 13 2021 01:44:40
%S 2,7,6,3,8,7,1,1,7,2,7,9,4,8,6,5,2,3,7,3,4,1,9,8,6,7,6,2,1,1,9,0,1,2,
%T 3,0,5,5,5,0,8,9,9,8,8,1,6,0,6,8,5,5,0,6,1,4,3,6,7,6,8,1,9,1,1,5
%N Decimal expansion of the constant formed by concatenating the terms of A076478 (binary vectors of lengths 1, 2, 3, ... in numerical order).
%C The binary vectors "0,1,00,01,10,11,000,001,..." are concatenated into a constant "0.0100011011000001...", then converted to decimal.
%e 0.276387117279486523734198676211901230555089988160685506143676819115...
%t m = 100; d[n_] := Rest@IntegerDigits[n + 1, 2] + 1; v = Flatten[Array[d, 4 m]] - 1; RealDigits[FromDigits[v, 2]/2^Length[v], 10, m][[1]] (* _Amiram Eldar_, Jul 05 2019 after _Clark Kimberling_ at A076478 *)
%o (Python)
%o from bigfloat import *
%o import string
%o def GenerateBitstring(bitstring, suffix, recurse):
%o if recurse == 0:
%o bitstring = bitstring + suffix
%o else:
%o bitstring = GenerateBitstring(bitstring, suffix + "0", recurse-1)
%o bitstring = GenerateBitstring(bitstring, suffix + "1", recurse-1)
%o return bitstring
%o VulcanBinary = ""
%o MaxRecursion = 8
%o for i in range(1,MaxRecursion+1):
%o VulcanBinary = GenerateBitstring(VulcanBinary, "", i)
%o print('.' + VulcanBinary)
%o with precision(2000):
%o VulcanDecimal = BigFloat(0)
%o b = BigFloat(1)
%o for c in VulcanBinary:
%o b = b/2.
%o if c == '1':
%o VulcanDecimal = VulcanDecimal+b
%o print(VulcanDecimal)
%o print(string.join(x + ',' for x in str(VulcanDecimal)[2:]))
%Y Cf. A076478.
%K nonn,base,cons
%O 0,1
%A _David McFadzean_, Jun 18 2019
|
