|
%I #13 Jun 07 2021 04:44:19
%S 1,31,431,7431,117431,18117431,2918117431,472918117431,76472918117431,
%T 12376472918117431,19912376472918117431,32219912376472918117431,
%U 52132219912376472918117431,84352132219912376472918117431
%N Concatenation of A000204 Lucas numbers (beginning at 1) in reverse order.
%C Indices of prime terms are {2, 3, 5, 11, ...}. Primes are listed in A134071 = {31, 431, 117431, 19912376472918117431, ...}.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LucasNumber.html">Lucas Number</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SmarandacheSequences.html">Smarandache Sequences</a>
%t Module[{nn=20,lnos},lnos=LucasL[Range[nn]];Table[FromDigits[Flatten[ IntegerDigits/@ Reverse[Take[lnos,n]]]],{n,nn}]] (* _Harvey P. Dale_, Jul 27 2015 *)
%Y Cf. A000204 (Lucas numbers).
%Y Cf. A130774 (concatenation of Lucas numbers).
%Y Cf. A019523 (concatenation of Fibonacci numbers).
%Y Cf. A038399 (concatenation of first n nonzero Fibonacci numbers in reverse order).
%Y Cf. A134069 (primes in A038399).
%Y Cf. A134070 (primes in A130774).
%Y Cf. A134071 (primes in A134072).
%K nonn,base
%O 1,2
%A _Alexander Adamchuk_, Oct 06 2007
%E Edited by _Charles R Greathouse IV_, Apr 26 2010
| 