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

4, 1, 9, 16, 49, 11, 164, 481, 1649, 4936, 149, 18181, 944, 2541, 64169, 193616, 44049, 925491, 25494964, 8191681, 1251449, 416164936, 9813609, 361604981, 10936644, 1364949361, 449116169, 169814016, 4910361649, 11168164251, 164360168164, 901091681

Offset: 0

Author

Vincenzo Librandi, Jul 06 2014

Keywords

• nonn
• base

Crossrefs

Cf. A000032, A048385.

Programs

Magma

[StringToInteger(&cat[IntegerToString(h): h in Reverse([i^2: i in Intseq(Lucas(n))])]): n in [0..35]];

Mathematica

FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]^2)]]&/@LucasL[ Range[ 0,40]] (* Harvey P. Dale, Oct 01 2021 *)

Python

from sympy import lucas
def a(n):  return int("".join(str(int(d)**2) for d in str(lucas(n))))
print([a(n) for n in range(32)]) # Michael S. Branicky, Apr 01 2021

Formula

a(n) = A048385(A000032(n)). [corrected by Georg Fischer, Dec 19 2020]