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 A244761 #14 Sep 08 2022 08:46:08
%S A244761 4,1,9,16,49,11,164,481,1649,4936,149,18181,944,2541,64169,193616,
%T A244761 44049,925491,25494964,8191681,1251449,416164936,9813609,361604981,
%U A244761 10936644,1364949361,449116169,169814016,4910361649,11168164251,164360168164,901091681
%N A244761 Numbers obtained by concatenating the squares of the digits of Lucas(n).
%F A244761 a(n) = A048385(A000032(n)). [corrected by _Georg Fischer_, Dec 19 2020]
%t A244761 FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]^2)]]&/@LucasL[ Range[ 0,40]] (* _Harvey P. Dale_, Oct 01 2021 *)
%o A244761 (Magma) [StringToInteger(&cat[IntegerToString(h): h in Reverse([i^2: i in Intseq(Lucas(n))])]): n in [0..35]];
%o A244761 (Python)
%o A244761 from sympy import lucas
%o A244761 def a(n): return int("".join(str(int(d)**2) for d in str(lucas(n))))
%o A244761 print([a(n) for n in range(32)]) # _Michael S. Branicky_, Apr 01 2021
%Y A244761 Cf. A000032, A048385.
%K A244761 nonn,base
%O A244761 0,1
%A A244761 _Vincenzo Librandi_, Jul 06 2014