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 A267325 #34 Feb 16 2025 08:33:29 %S A267325 1,41,421,3562,37309,504880,1688724,20969807,856967187,5376948073, %T A267325 17667973799,73247846210,7038850387534,32764157273501,384623091229702, %U A267325 4924836055850737,21264412149709993,583141322266592750,5592755799950501152,78206057147010955997 %N A267325 Next n digits of sqrt(2). %H A267325 G. C. Greubel, <a href="/A267325/b267325.txt">Table of n, a(n) for n = 1..995</a> %H A267325 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PythagorassConstant.html">Pythagoras's Constant</a>. %F A267325 a(n) = floor(sqrt(2)*10^(n*(n + 1)/2 - 1)) mod (10^n). %e A267325 a(2) = 41 because the second and third digits of sqrt(2) are 4 and 1. %t A267325 Table[Mod[Floor[Sqrt[2] 10^(n ((n + 1)/2) - 1)], 10^n], {n, 1, 20}] %t A267325 Table[Floor[10^(-1 + (n (1 + n))/2) Sqrt[2]] + Ceiling[-(Floor[10^(-1 + (n (1 + n))/2) Sqrt[2]]/10^n)] 10^n, {n, 1, 20}] %t A267325 With[{x=20},FromDigits/@TakeList[RealDigits[Sqrt[2],10,(x(x+1))/2] [[1]], Range[x]]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 04 2019 *) %o A267325 (Magma) [Floor(Sqrt(2)*10^(n*(n + 1)/2 - 1)) mod (10^n): n in [1..30]]; // _Vincenzo Librandi_, Feb 15 2016 %o A267325 (PARI) a(n) = lift(Mod(floor(sqrt(2)*10^(n*(n + 1)/2 - 1)), 10^n)); \\ _G. C. Greubel_, Oct 07 2018 %Y A267325 Cf. A002193, A081368, A090897, A093473. %K A267325 nonn,easy,base %O A267325 1,2 %A A267325 _Ilya Gutkovskiy_, Jan 13 2016