|
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A130774 = {1, 13, 134, 1347, 134711, 13471118, 1347111829, 134711182947, 13471118294776, 13471118294776123, ...} = Concatenate Lucas numbers. Indices of prime terms in A130774 are {2, 10, 31, ...}.
|
|
LINKS
|
|
|
EXAMPLE
|
a(2) = A130774(10) = 13471118294776123.
a(3) = A130774(31) = 13471118294776123199322521843136422073571577893491512724476396036407910368216776127144343920471064711498511860498301034.
|
|
MATHEMATICA
|
Select[Module[{nn=40, ll}, ll=LucasL[Range[nn]]; Table[FromDigits[Flatten[IntegerDigits/@Take[ll, n]]], {n, nn}]], PrimeQ] (* Harvey P. Dale, May 07 2023 *)
|
|
CROSSREFS
|
Cf. A130774 (concatenation of Lucas numbers).
Cf. A019523 (concatenation of Fibonacci numbers).
Cf. A038399 (concatenation of first n nonzero Fibonacci numbers in reverse order).
Cf. A134072 (concatenation of A000204 Lucas numbers (beginning at 1) in reverse order).
|
|
KEYWORD
|
nonn,base,bref
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|