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,1

Links

Table of n, a(n) for n=0..31.

Formula

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

Mathematica

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

Prog

(Magma) [StringToInteger(&cat[IntegerToString(h): h in Reverse([i^2: i in Intseq(Lucas(n))])]): n in [0..35]];
(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

Crossrefs

Cf. A000032, A048385.

Sequence in context: A069606 A344109 A193580 * A075150 A001254 A143763

Adjacent sequences: A244758 A244759 A244760 * A244762 A244763 A244764

Keyword

nonn,base

Author

Vincenzo Librandi, Jul 06 2014

Status

approved