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 A061023 #20 Jul 02 2018 01:43:04 %S A061023 0,0,0,3,3,4,4,1,1,1,1,1,1,8,8,8,8,8,11,11,11,2,2,2,2,2,2,2,2,2,2,9,9, %T A061023 9,9,9,9,9,9,9,9,9,9,22,22,22,15,15,15,15,15,15,15,15,15,15,15,0,0,0, %U A061023 0,0,0,0,0,0,0,0,0,0,0,0,0,17,17,17,17,17,17 %N A061023 Difference between the closest square and the closest cube to n. %C A061023 a(A201217(n)) = 0. %H A061023 T. D. Noe, <a href="/A061023/b061023.txt">Table of n, a(n) for n = 0..10000</a> %F A061023 a(n) = abs(A053187(n) - A201053(n)). [_Reinhard Zumkeller_, Nov 28 2011] %e A061023 a(46)=15 because the nearest square is 49 and the nearest cube is 64 and 64 - 49 = 15. %t A061023 dsc[n_]:=Module[{s=Floor[Sqrt[n]],c=Floor[Power[n, (3)^-1]],ns,nc}, ns= Nearest[{s^2,(s+1)^2},n]; nc=Nearest[{c^3,(c+1)^3},n];Abs[nc-ns]]; Flatten[ Array[dsc,100,0]] (* _Harvey P. Dale_, Aug 19 2011 *) %o A061023 (PARI) { for (n=0, 10000, x=n^(1/2); s=floor(x)^2; t=ceil(x)^2; if (n-s > t-n, s=t); x=n^(1/3); c=floor(x)^3; d=ceil(x)^3; if (n-c > d-n, c=d); write("b061023.txt", n, " ", abs(c-s)) ) } \\ _Harry J. Smith_, Jul 16 2009 %o A061023 (Haskell) %o A061023 a061023 n = abs (a053187 n - a201053 n) %o A061023 a061023_list = map a061023 [0..] %o A061023 -- _Reinhard Zumkeller_, Nov 28 2011 %Y A061023 Cf. A000290, A000578. %K A061023 easy,nice,nonn,look %O A061023 0,4 %A A061023 Hareendra Yalamanchili (hyalaman(AT)mit.edu), May 24 2001 %E A061023 More terms from _Harvey P. Dale_, Aug 19 2011