%I #9 May 08 2023 11:16:58
%S 1,13,134,1347,134711,13471118,1347111829,134711182947,13471118294776,
%T 13471118294776123,13471118294776123199,13471118294776123199322,
%U 13471118294776123199322521,13471118294776123199322521843
%N Cumulative concatenation of A000204 Lucas numbers (beginning at 1).
%C a(2) = 13 and a(10) = 13471118294776123 are prime. What is the next prime?
%C The next prime is a(31), a number of 120 digits. - _Giovanni Resta_, Jun 18 2016
%F a(1) = 1; a(n+1) = Concatenate(a(n),A000204(n+1)).
%t Module[{nn=20,ll},ll=LucasL[Range[nn]];Table[FromDigits[Flatten[IntegerDigits/@Take[ll,n]]],{n,nn}]] (* _Harvey P. Dale_, May 07 2023 *)
%Y Cf. A000204.
%K base,easy,nonn
%O 1,2
%A _Jonathan Vos Post_, Aug 19 2007
|