%I #16 May 23 2022 12:30:29
%S 1,0,0,1,0,0,0,1,1,1,1,0,0,1,0,0,1,0,1,1,1,0,0,1,1,1,0,0,0,0,0,0,0,1,
%T 1,1,1,1,1,0,0,1,1,1,0,0,0,1,1,0,0,1,0,0,0,0,0,0,0,0,1,0,1,0,1,0,1,1,
%U 0,0,1,1,1,1,0,0,0,1,1,0,0,0,0,0,1,0,0,0,1,0,1,0,0,1,1,0,0,0,0,0,1,0,1,0,1
%N Binary expansion of BesselI(0,2).
%e 10.010001111001...
%t RealDigits[BesselI[0, 2], 2, 100][[1]] (* _Amiram Eldar_, May 23 2022 *)
%o (PARI) concat(binary(besseli(0,2))) \\ _Charles R Greathouse IV_, Apr 18 2016
%Y Cf. A070910.
%K base,cons,easy,nonn
%O 2,1
%A _Benoit Cloitre_, May 20 2002