Original entry on oeis.org
31, 431, 117431, 19912376472918117431
Offset: 1
a(1) = A134072(2) = 31.
a(2) = A134072(3) = 431.
a(3) = A134072(5) = 117431.
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).
-
nn=500;With[{lucs=LucasL[Range[nn]]},Select[Table[FromDigits[ Flatten[ IntegerDigits/@ Reverse[ Take[lucs,n]]]],{n,nn}],PrimeQ]] (* Harvey P. Dale, Aug 17 2013 *)
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