login
Numbers obtained by concatenating the squares of the digits of Lucas(n).
0

%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