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 A048387 #14 Sep 08 2022 08:44:57 %S A048387 0,1,4,9,16,25,36,49,64,81,49,169,1681,361,100,144,1936,11664,1369, %T A048387 400,441,41616,43681,900,9025,93636,1600,16641,166464,2500,3600,36481, %U A048387 4900,6400,646416,8100,11025,11449,1444,14161,14641,116964,12544,136161 %N A048387 Squares resulting from procedure described in A048386. %F A048387 a(n) = A048385(A048386(n)). - _Michel Marcus_, Feb 13 2020 %o A048387 (Magma) f:=func<n|StringToInteger(&cat[IntegerToString(h): h in Reverse([c^2: c in Intseq(n)])])>; [0] cat [f(k):k in [1..4000]|IsSquare(f(k))]; // _Marius A. Burtea_, Feb 13 2020 %Y A048387 Cf. A048385, A048386. %K A048387 nonn,base %O A048387 1,3 %A A048387 _Patrick De Geest_, Mar 15 1999 %E A048387 Offset 1 from _Michel Marcus_, Feb 13 2020