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 A084095 #9 Mar 28 2024 21:54:35
%S A084095 1,1,5,45,553,8525,157481,3383989,82823777,2272771305,69070483549,
%T A084095 2301873355661,83445967372681,3268307044050997,137510640882447041,
%U A084095 6184402325475261525,296032663549928711041,15025296455500536616337
%N A084095 First superdiagonal of number array A084061.
%H A084095 G. C. Greubel, <a href="/A084095/b084095.txt">Table of n, a(n) for n = 0..300</a>
%F A084095 a(n) = ((n - sqrt(n-1))^n + (n + sqrt(n-1))^n)/2.
%p A084095 seq( round(((n-sqrt(n-1))^n + (n+sqrt(n-1))^n)/2), n=0..20); # _G. C. Greubel_, Jan 11 2020
%t A084095 Table[Round[((n+Sqrt[n-1])^n + (n-Sqrt[n-1])^n)/2], {n,0,20}] (* _G. C. Greubel_, Jan 11 2020 *)
%o A084095 (PARI) vector(21, n, round(((n-1-sqrt(n-2))^(n-1) + (n-1+sqrt(n-2))^(n-1))/2) ) \\ _G. C. Greubel_, Jan 11 2020
%o A084095 (Magma) [Round(((n-Sqrt(n-1))^n + (n+Sqrt(n-1))^n)/2): n in [0..20]]; // _G. C. Greubel_, Jan 11 2020
%o A084095 (Sage) [round(((n-sqrt(n-1))^n + (n+sqrt(n-1))^n)/2) for n in (0..20)] # _G. C. Greubel_, Jan 11 2020
%o A084095 (GAP) List([0..20], n-> ((n-Sqrt(n-1))^n + (n+Sqrt(n-1))^n)/2); # _G. C. Greubel_, Jan 11 2020
%Y A084095 Cf. A084061, A084062, A084063, A084064, A084065, A084096.
%K A084095 easy,nonn
%O A084095 0,3
%A A084095 _Paul Barry_, May 11 2003