|
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A134072 = {1, 31, 431, 7431, 117431, 18117431, 2918117431, 472918117431, 76472918117431, 12376472918117431, 19912376472918117431, ...} = concatenation of Lucas numbers in reverse order. Indices of prime terms in A134072 are {2, 3, 5, 11, ...}.
No further terms through 500 Lucas numbers. - Harvey P. Dale, Aug 17 2013
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
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 *)
|
|
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
|
hard,more,nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|