cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

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

Views

Author

Alexander Adamchuk, Oct 06 2007

Keywords

Comments

Indices of prime terms are {2, 3, 5, 11, ...}. Primes are listed in A134071 = {31, 431, 117431, 19912376472918117431, ...}.

Crossrefs

Cf. A000204 (Lucas numbers).
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. A134069 (primes in A038399).
Cf. A134070 (primes in A130774).
Cf. A134071 (primes in A134072).

Programs

  • Mathematica
    Module[{nn=20,lnos},lnos=LucasL[Range[nn]];Table[FromDigits[Flatten[ IntegerDigits/@ Reverse[Take[lnos,n]]]],{n,nn}]] (* Harvey P. Dale, Jul 27 2015 *)

Extensions

Edited by Charles R Greathouse IV, Apr 26 2010

A134070 Primes in A130774.

Original entry on oeis.org

13, 13471118294776123, 134711182947761231993225218431364220735715778934915127244763960364079103682167761271443439204710647114985118604983010349
Offset: 1

Views

Author

Alexander Adamchuk, Oct 06 2007

Keywords

Comments

A130774 = {1, 13, 134, 1347, 134711, 13471118, 1347111829, 134711182947, 13471118294776, 13471118294776123, ...} = Concatenate Lucas numbers. Indices of prime terms in A130774 are {2, 10, 31, ...}.
a(4) > A130774(500) = 1.347...*10^26425, if it exists. - Amiram Eldar, Jul 17 2025

Examples

			a(1) = A130774(2) = 13.
a(2) = A130774(10) = 13471118294776123.
a(3) = A130774(31) = 13471118294776123199322521843136422073571577893491512724476396036407910368216776127144343920471064711498511860498301034.
		

Crossrefs

Cf. A000204 (Lucas numbers).
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).
Cf. A134069 (primes in A038399).
Cf. A134071 (primes in A134072).

Programs

  • Mathematica
    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 *)

Extensions

Edited by Charles R Greathouse IV, Apr 24 2010
Showing 1-2 of 2 results.