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.
%I A093087 #8 Aug 19 2025 08:52:01
%S A093087 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,
%T A093087 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,
%U A093087 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
%N A093087 "Lucas in digits": start with a(1)=1, a(2)=3; repeatedly adjoin digits of sum of next two terms.
%C A093087 See A093086 (an analogous sequence) for a detailed description of how terms are calculated and links to similar sequences. - _Paolo Xausa_, Aug 19 2025
%H A093087 Paolo Xausa, <a href="/A093087/b093087.txt">Table of n, a(n) for n = 1..10000</a>
%t A093087 Fold[Join[#, IntegerDigits[Total[#[[#2;; #2+1]]]]] &, {1, 3}, Range[100]] (* _Paolo Xausa_, Aug 19 2025 *)
%Y A093087 Cf. A093086.
%K A093087 nonn,base
%O A093087 1,2
%A A093087 _Bodo Zinser_, Mar 20 2004
%E A093087 Name edited by _Paolo Xausa_, Aug 19 2025