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,2

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

Mathematica

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

Crossrefs

Cf. A093086.

Sequence in context: A173014 A390070 A322017 * A376212 A130893 A072079

Adjacent sequences: A093084 A093085 A093086 * A093088 A093089 A093090

Keyword

nonn,base

Author

Bodo Zinser, Mar 20 2004

Extensions

Name edited by Paolo Xausa, Aug 19 2025

Status

approved