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 A093100 #9 Aug 04 2014 18:48:37
%S A093100 13,34,47,711,118,182,829,2910,91011,101110,11101,11012,10122,1221,
%T A093100 2213,2134,1343,3434,4347,3477,4777,77711,771114,7111414,1114148,
%U A093100 1141482,1414822,4148225,1482255,4822555,82255512,225551210,255512104,555121047
%N A093100 "Lucas-digits": start with "13", append sum of first 2 digits to the preceding number, drop first digit.
%C A093100 There are only 7 primes in the first 1000 terms of this sequence. The first 6 primes are 13, 47, 829, 2213, 77711, and 174111811681183993. The 7th prime, a(920), has 214 digits. - _Harvey P. Dale_, Aug 04 2014
%H A093100 Harvey P. Dale, <a href="/A093100/b093100.txt">Table of n, a(n) for n = 1..1000</a>
%e A093100 a(4): sum of first 2 digits of a(3)=11, append 11 to 47 and get 4711, drop first digit and get 711.
%t A093100 ld[n_]:=Module[{idn=IntegerDigits[n]},FromDigits[Rest[Join[ idn, IntegerDigits[ Total[ Take[idn,2]]]]]]]; NestList[ld,13,40] (* _Harvey P. Dale_, Aug 04 2014 *)
%Y A093100 Cf. A093086-A093099.
%K A093100 nonn,base
%O A093100 1,1
%A A093100 _Bodo Zinser_, Mar 22 2004