A134072
Concatenation of A000204 Lucas numbers (beginning at 1) in reverse order.
Original entry on oeis.org
1, 31, 431, 7431, 117431, 18117431, 2918117431, 472918117431, 76472918117431, 12376472918117431, 19912376472918117431, 32219912376472918117431, 52132219912376472918117431, 84352132219912376472918117431
Offset: 1
Cf.
A130774 (concatenation of Lucas numbers).
Cf.
A019523 (concatenation of Fibonacci numbers).
Cf.
A038399 (concatenation of first n nonzero Fibonacci numbers in reverse order).
-
Module[{nn=20,lnos},lnos=LucasL[Range[nn]];Table[FromDigits[Flatten[ IntegerDigits/@ Reverse[Take[lnos,n]]]],{n,nn}]] (* Harvey P. Dale, Jul 27 2015 *)
Original entry on oeis.org
13, 13471118294776123, 134711182947761231993225218431364220735715778934915127244763960364079103682167761271443439204710647114985118604983010349
Offset: 1
a(1) = A130774(2) = 13.
a(2) = A130774(10) = 13471118294776123.
a(3) = A130774(31) = 13471118294776123199322521843136422073571577893491512724476396036407910368216776127144343920471064711498511860498301034.
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).
-
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 *)
Showing 1-2 of 2 results.
Comments