This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A222128 #11 Mar 26 2013 03:53:53 %S A222128 2,2,0,5,8,4,0,4,0,7,4,9,6,9,8,0,8,8,6,6,8,9,4,5,9,1,3,2,5,5,7,8,7,5, %T A222128 1,0,4,5,8,8,4,8,0,3,8,1,5,9,4,1,0,6,7,2,3,7,0,0,4,8,8,7,3,2,2,4,8,3, %U A222128 3,5,5,1,2,5,0,5,9,5,6,3,9,7,2,7,1,1,3 %N A222128 Decimal expansion of the real part of 1/i^Pi, where i=sqrt(-1). %C A222128 Also, decimal expansion of the real part of i^Pi. %H A222128 Vincenzo Librandi, <a href="/A222128/b222128.txt">Table of n, a(n) for n = 0..5000</a> %F A222128 Equals cos(Pi^2/2). %e A222128 0.22058404074969808866894591325578751045884803815941067237004887322... %t A222128 RealDigits[Re[1/I^Pi], 10, 90][[1]] (* or *) RealDigits[Cos[Pi^2/2], 10, 90][[1]] %o A222128 (Maxima) fpprec:90; ev(bfloat(realpart(1/%i^%pi))); %Y A222128 Cf. A102753, A211883, A222129 (imaginary part of 1/i^Pi). %K A222128 nonn,cons %O A222128 0,1 %A A222128 _Bruno Berselli_, Feb 08 2013