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 A068833 #13 Aug 27 2018 16:54:04 %S A068833 16,36,900,3364,0,123409881,10000,81,2120219933855716, %T A068833 91361386718598177458046950625 %N A068833 Start of the first occurrence of exactly n consecutive squares with digit sum also a square. %e A068833 a(7) = 81 as the sums of the digits of the 7 consecutive squares 81, 100, 121, 144, 169, 196, 225 are squares, but the digit sums of 64 and 256 are not. %t A068833 l[n_] := Module[{k}, For[k=0, IntegerQ[Sqrt[Plus@@IntegerDigits[(n+k)^2]]], k++, Null]; k]; Clear[a]; For[n=0, True, n+=ln+1, If[a[ln=l[n]]==-1, Null, Null, a[ln]=n; Print["a(", ln, ")=", n^2]]] %Y A068833 Cf. A061910, A293832. %K A068833 hard,more,nonn,base %O A068833 0,1 %A A068833 _Amarnath Murthy_, Mar 09 2002 %E A068833 Edited by _Dean Hickerson_, Oct 28 2002 %E A068833 a(9) from _Giovanni Resta_, Aug 27 2018