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 A153718 #12 Aug 26 2016 04:19:22 %S A153718 1,2,23,24,35,41,65,182,72506,107346 %N A153718 Numbers k such that the fractional part of (Pi-2)^k is less than 1/k. %C A153718 Numbers k such that fract((Pi-2)^k) < 1/k, where fract(x) = x-floor(x). %C A153718 The next such number must be greater than 200000. %C A153718 a(11) > 10^6. - _Jon E. Schoenfield_, Nov 15 2014 %e A153718 a(3)=23 since fract((Pi-2)^23) = 0.0260069... < 1/23, but fract((Pi-2)^k) >= 1/k for 3 <= k <= 22. %t A153718 Select[Range[1000], N[FractionalPart[(Pi - 2)^#], 100] < (1/#) &] (* _G. C. Greubel_, Aug 25 2016 *) %o A153718 (PARI) lista(nn) = for (n=1, nn, default(realprecision, n); if (frac((Pi-2)^n) < 1/n, print1(n, ", "))); \\ _Michel Marcus_, Nov 16 2014 %Y A153718 Cf. A153662, A153670, A153678, A153686, A153694, A153702, A153710, A153722, A154130. %K A153718 nonn,more %O A153718 1,2 %A A153718 _Hieronymus Fischer_, Jan 06 2009