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