A093087 "Lucas in digits": start with a(1)=1, a(2)=3; repeatedly adjoin digits of sum of next two terms.

1, 3, 4, 7, 1, 1, 8, 2, 9, 1, 0, 1, 1, 1, 0, 1, 1, 2, 2, 1, 1, 2, 3, 4, 3, 2, 3, 5, 7, 7, 5, 5, 8, 1, 2, 1, 4, 1, 2, 1, 0, 1, 3, 9, 3, 3, 5, 5, 3, 3, 1, 1, 4, 1, 2, 1, 2, 6, 8, 1, 0, 8, 6, 4, 2, 5, 5, 3, 3, 3, 8, 1, 4, 9, 1, 8, 1, 4, 1, 0, 6, 7, 1, 0, 8, 6, 6, 1, 1, 9, 5, 1, 3, 1, 0, 9, 9, 5, 5, 1, 6, 1, 3, 8, 1

Offset: 1

Author

Bodo Zinser, Mar 20 2004

Keywords

• nonn
• base

Comments

See A093086 (an analogous sequence) for a detailed description of how terms are calculated and links to similar sequences. - Paolo Xausa, Aug 19 2025

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A093086.

Programs

Mathematica

Fold[Join[#, IntegerDigits[Total[#[[#2;; #2+1]]]]] &, {1, 3}, Range[100]] (* Paolo Xausa, Aug 19 2025 *)

Extensions

Name edited by Paolo Xausa, Aug 19 2025