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 A068947 #11 Feb 10 2019 03:42:53 %S A068947 1,2,3,7,13,17,43,63,83,167,264,313,707,836,1667,2236,3114,4472,6833, %T A068947 8167,8937,16667,21886,29614,41833,74833,89437,94863,134164,191833, %U A068947 298327,545793,547613,947617,987917,1643167,3143167,3162083,5477133 %N A068947 Square roots of A068809. %H A068947 Giovanni Resta, <a href="/A068947/b068947.txt">Table of n, a(n) for n = 1..80</a> %e A068947 13^2 = 169 = A068809(5), so a(5)=13. %p A068947 A007953 := proc(n) option remember: return add(d, d=convert(n, base, 10)): end: A068947 := proc(n) option remember: local k,p: if(n=1)then return 1: fi: k:=procname(n-1): p:=A007953(k^2): do k:=k+1: if(A007953(k^2)>p)then return k: fi: od: end: seq(A068947(n),n=1..20); # _Nathaniel Johnston_, May 04 2011 %Y A068947 Cf. A068809, A068948, A068949, A068950, A068952, A069324, A040047. %K A068947 nonn,base %O A068947 1,2 %A A068947 Francois Jooste (phukraut(AT)hotmail.com), Mar 15 2002