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 A386696 #7 Jul 31 2025 10:56:38 %S A386696 3,6,0,1,2,2,2,0,0,9,7,3,3,9,3,0,3,1,2,4,8,8,4,1,3,9,5,7,2,9,4,0,5,3, %T A386696 4,0,8,8,8,2,6,0,3,4,6,1,1,5,1,5,8,2,4,2,0,0,6,4,4,0,8,7,3,8,7,3,0,8, %U A386696 9,9,8,9,9,1,6,0,3,2,4,1,3,4,9,5,2,0,9,5,1,9 %N A386696 Decimal expansion of the volume of a snub square antiprism with unit edges. %C A386696 The snub square antiprism is Johnson solid J_85. %H A386696 Paolo Xausa, <a href="/A386696/b386696.txt">Table of n, a(n) for n = 1..10000</a> %H A386696 Wikipedia, <a href="https://en.wikipedia.org/wiki/Snub_square_antiprism">Snub square antiprism</a>. %F A386696 Equals the largest real root of 531441*x^12 - 85726026*x^8 - 48347280*x^6 + 11588832*x^4 + 4759488*x^2 - 892448. %e A386696 3.601222009733930312488413957294053408882603461... %t A386696 First[RealDigits[Root[531441*#^12 - 85726026*#^8 - 48347280*#^6 + 11588832*#^4 + 4759488*#^2 - 892448 &, 6], 10, 100]] (* or *) %t A386696 First[RealDigits[PolyhedronData["J85", "Volume"], 10, 100]] %Y A386696 Cf. A385259 (surface area + 8). %Y A386696 Cf. A386695. %K A386696 nonn,cons,easy %O A386696 1,1 %A A386696 _Paolo Xausa_, Jul 31 2025