A005372 a(n) = L(L(n+1)+1), where L(n) are Lucas numbers A000032.

3, 7, 11, 47, 322, 9349, 1860498, 10749957122, 12360848946698171, 82123488809519507169850807, 627376215338105766356982006981782561278127, 31842547163971605907183271059340725709462269514762215168643703957079

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

References

• N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..16

Crossrefs

Cf. A000032, A005371.

Programs

Magma

[Lucas(1+Lucas(n+1)): n in [0..15]]; // G. C. Greubel, Nov 14 2022

Maple

L:= n-> (<<0|1>, <1|1>>^(n). <<2,1>>)[1,1]:
a:= n-> L(L(n+1)+1):
seq(a(n), n=0..12);  # Alois P. Heinz, Jun 01 2016

Mathematica

LucasL[1 +LucasL[Range[16]]] (* G. C. Greubel, Nov 14 2022 *)

SageMath

[lucas_number2(1+lucas_number2(n+1, 1,-1),1,-1) for n in range(15)] # G. C. Greubel, Nov 14 2022

Extensions

a(8) onwards corrected by Sean A. Irvine, Jun 01 2016

Name edited by Alois P. Heinz, Jun 01 2016