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 A096430 #16 Feb 16 2025 08:32:53 %S A096430 1,28,38,703,1891,4186,8128,2873,23653,36856,54946,79003,22043,149878, %T A096430 199396,260281,334153,84548,527878,651511,795691,962578,230888, %U A096430 1373653,1622701,1904176,2220778,515063,2970703,3409966,3896236 %N A096430 Numerator of (9*(n^4 - 2*n^3 + 2*n^2 - n) + 2)/(2*(2*n-1)). %H A096430 G. C. Greubel, <a href="/A096430/b096430.txt">Table of n, a(n) for n = 1..2000</a> %H A096430 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/MagicHexagon.html">Magic Hexagon</a> %H A096430 <a href="/index/Rec#order_25">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,5,0,0,0,0,-10,0,0,0,0,10,0,0,0,0,-5,0,0,0,0,1). %e A096430 1, 28/3, 38, 703/7, 1891/9, 4186/11, ... = A096430/A096431. %p A096430 A096430:=n->numer((9*(n^4 - 2*n^3 + 2*n^2 - n) + 2)/(2*(2*n-1))): seq(A096430(n), n=1..50); # _Wesley Ivan Hurt_, Jan 21 2017 %t A096430 Table[Numerator[(9*n*(n^3-2*n^2+2*n-1)+2)/(2*(2*n-1))], {n,50}] (* _G. C. Greubel_, Oct 14 2024 *) %o A096430 (Magma) %o A096430 A096430:= func< n | Numerator((9*n*(n^3-2*n^2+2*n-1)+2)/(2*(2*n-1))) >; %o A096430 [A096430(n): n in [1..50]]; // _G. C. Greubel_, Oct 14 2024 %o A096430 (SageMath) %o A096430 def A096430(n): return numerator((9*n*(n^3-2*n^2+2*n-1)+2)/(2*(2*n-1))) %o A096430 [A096430(n) for n in range(1,51)] # _G. C. Greubel_, Oct 14 2024 %Y A096430 Cf. A096431 (denominators), A097362. %K A096430 nonn,easy,frac %O A096430 1,2 %A A096430 _Eric W. Weisstein_, Aug 09 2004