%I #9 Jan 28 2017 20:07:29
%S 1,4,1,4,6,8,2,5,0,9,8,5,1,1,1,1,6,6,0,2,4,8,1,0,9,6,2,2,1,5,4,3,0,7,
%T 7,0,8,3,6,5,7,7,4,2,3,8,1,3,7,9,1,6,9,7,7,8,6,8,2,4,5,4,1,4,4,8,8,6,
%U 4,0,9,6,0,6,1,9,3,5,7,3,3,4,1,9,6,2,9,0,0,4,8,4,2,8,4,7,5,7,7,7,9,3,9,6,1,6
%N Take the binary number P = 1.01101010001... which has an 1 in each decimal position that is a prime (e.g. 2,3,5,7...) and convert this number to base 10.
%e 1.414682509851111660248109622154307708366...
%p a := 1; for i from 2 to 1000 do if isprime(i) then a := a+10^(-i); end if; end do; b := evalf(a,100); evalf(convert(b,decimal,binary),40);
%Y Essentially the same as A051006, which is the main entry.
%Y Cf. A000040, A010051.
%K base,cons,easy,nonn
%O 1,2
%A Andre Neumann Kauffman (andrekff(AT)hotmail.com), Aug 13 2002
%E More digits from _Alois P. Heinz_, Jan 28 2017
|