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 A153712 #16 Mar 25 2019 17:19:59 %S A153712 1,2,15,22,58,109,157,1030,1071,1274,2008,2322,5269,151710 %N A153712 Numbers k such that the fractional part of Pi^k is greater than 1-(1/k). %C A153712 Numbers k such that fract(Pi^k) > 1-(1/k), where fract(x) = x-floor(x). %C A153712 The next such number must be greater than 100000. %C A153712 a(15) > 300000. - _Robert Price_, Mar 25 2019 %e A153712 a(3) = 15, since fract(Pi^15) = 0.969... > 0.933... = 1 - (1/15), but fract(Pi^k) <= 1 - (1/k) for 3 <= k <= 14. %t A153712 Select[Range[1000], N[FractionalPart[Pi^#], 100] > 1 - (1/#) &] (* _G. C. Greubel_, Aug 25 2016 *) %Y A153712 Cf. A153664, A153672, A153680, A153688, A153696, A153704, A153716, A154130, A153720. %Y A153712 Cf. A001672. %K A153712 nonn,more %O A153712 1,2 %A A153712 _Hieronymus Fischer_, Jan 06 2009 %E A153712 a(14) from _Robert Price_, Mar 25 2019