A090310 -id:A090310 - cp's OEIS frontend

A330767 a(n) = 25*a(n-1) + a(n-2), starting with a(0) = 2 and a(1) = 25.

2, 25, 627, 15700, 393127, 9843875, 246490002, 6172093925, 154548838127, 3869893047100, 96901875015627, 2426416768437775, 60757321085960002, 1521359443917437825, 38094743419021905627, 953889944919465078500, 23885343366405648868127, 598087474105060686781675, 14976072195992922818410002

Offset: 0

G. C. Greubel, Dec 29 2019

G. C. Greubel, Table of n, a(n) for n = 0..500
Index entries for linear recurrences with constant coefficients, signature (25,1).

Lucas polynomials Lucas(n,m): A000032 (m=1), A002203 (m=2), A006497 (m=3), A014448 (m=4), A087130 (m=5), A085447 (m=6), A086902 (m=7), A086594 (m=8), A087798 (m=9), A086927 (m=10), A001946 (m=11), A086928 (m=12), A088316 (m=13), A090300 (m=14), A090301 (m=15), A090305 (m=16), A090306 (m=17), A090307 (m=18), A090308 (m=19), A090309 (m=20), A090310 (m=21), A090313 (m=22), A090314 (m=23), A090316 (m=24), this sequence (m=25).

a:=[2,25];; for n in [3..25] do a[n]:=25*a[n-1]+a[n-2]; od; a;

I:=[2,25]; [n le 2 select I[n] else 25*Self(n-1) +Self(n-2): n in [1..25]];

seq(simplify(2*(-I)^n*ChebyshevT(n, 25*I/2)), n = 0..25);

Mathematica
```
LucasL[Range[25] -1, 25]
```

vector(26, n, 2*(-I)^(n-1)*polchebyshev(n-1, 1, 25*I/2) )

[2*(-I)^n*chebyshev_T(n, 25*I/2) for n in (0..25)]

a(n) = ( (25 + sqrt(629))^n + (25 - sqrt(629))^n )/2^n.
G.f.: (2 - 25*x)/(1-25*x-x^2).
a(n) = Lucas(n, 25) = 2*(-i)^n * ChebyshevT(n, 25*i/2).

A089772 a(n) = Lucas(11*n).

Original entry on oeis.org

2, 199, 39603, 7881196, 1568397607, 312119004989, 62113250390418, 12360848946698171, 2459871053643326447, 489526700523968661124, 97418273275323406890123, 19386725908489881939795601, 3858055874062761829426214722

Offset: 0

Nikolay V. Kosinov (kosinov(AT)unitron.com.ua), Jan 09 2004

Lim_{n-> infinity} a(n+1)/a(n) = 199.00502499874... = (199 + sqrt(39605))/2.

Lim_{n->infinity} a(n)/a(n+1) = 0.00502499874... = 2/(199 + sqrt(39605)) = (sqrt(39605) - 199)/2.

			a(4) = 1568397607 = 199*a(3) + a(2) = 199*7881196 + 39603 = ((199 + sqrt(39605) )/2)^4 + ((199 - sqrt(39605))/2)^4 = 1568397606.9999999993624065... + 0.0000000006375934...

Nathaniel Johnston, Table of n, a(n) for n = 0..100
Tanya Khovanova, Recursive Sequences
Index entries for recurrences a(n) = k*a(n - 1) +/- a(n - 2)
Index entries for linear recurrences with constant coefficients, signature (199,1).

List([0..20], n-> Lucas(1,-1,11*n)[2] ); # G. C. Greubel, Dec 30 2019

[Lucas(11*n): n in [0..20]]; // Vincenzo Librandi, Apr 15 2011

seq(simplify(2*(-I)^n*ChebyshevT(n, 199*I/2)), n = 0..20); # G. C. Greubel, Dec 31 2019

LucasL[11*Range[0,20]] (* or *) LinearRecurrence[{199,1},{2,199},20] (* Harvey P. Dale, Dec 23 2015 *)
LucasL[Range[20]-1,199] (* G. C. Greubel, Dec 31 2019 *)

vector(21, n, 2*(-I)^(n-1)*polchebyshev(n-1, 1, 199*I/2) ) \\ G. C. Greubel, Dec 31 2019

[lucas_number2(11*n,1,-1) for n in (0..20)] # G. C. Greubel, Dec 30 2019

a(n) = 199*a(n-1) + a(n-2), starting with a(0) = 2 and a(1) = 199.
a(n) = ((199 + sqrt(39605))/2)^n + ((199 - sqrt(39605))/2)^n.
a(n)^2 = a(2n) - 2 if n = 1, 3, 5, ...;
a(n)^2 = a(2n) + 2 if n = 2, 4, 6, ....
G.f.: (2 - 199*x)/(1 - 199*x - x^2). - Philippe Deléham, Nov 02 2008
a(n) = Lucas(n, 199) = 2*(-i)^n * ChebyshevT(n, 199*i/2). - G. C. Greubel, Dec 31 2019
E.g.f.: 2*exp(199*x/2)*cosh(sqrt(39605)*x/2). - Stefano Spezia, Jan 01 2020

A090311 Concatenation of two distinct primes p and q, p < q.

Original entry on oeis.org

23, 25, 35, 27, 37, 57, 211, 311, 511, 711, 213, 313, 513, 713, 1113, 217, 317, 517, 717, 1117, 1317, 219, 319, 519, 719, 1119, 1319, 1719

Offset: 1

Amarnath Murthy, Nov 30 2003

Next n numbers end in prime(n+1).

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A090309, A090310, A090312.

FromDigits[Flatten[IntegerDigits/@#]]&/@Flatten[Table[Join[{Prime[c]},{Prime[ n]}],{n,10},{c,n-1}],1](* Harvey P. Dale, Nov 27 2019 *)

cp's OEIS Frontend

A330767 a(n) = 25*a(n-1) + a(n-2), starting with a(0) = 2 and a(1) = 25.

Views

Author

Keywords

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

PARI

Sage

Formula

A089772 a(n) = Lucas(11*n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

PARI

Sage

Formula

A090311 Concatenation of two distinct primes p and q, p < q.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica