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 A048549 #15 Sep 25 2020 07:15:39
%S A048549 2,23,233,2333,23333,2333321,233332117,2333321173,233332117313,
%T A048549 23333211731399,2333321173139903,2333321173139903173,
%U A048549 23333211731399031733,2333321173139903173301,2333321173139903173301021
%N A048549 a(n+1) is next smallest prime beginning with a(n), initial prime is 2.
%H A048549 <a href="/A048549/b048549.txt">Table of n, a(n) for n = 1..500</a>
%t A048549 b = 10; s = {{2}};
%t A048549 Do[NestWhile[# + 1 &, 0, ! (PrimeQ[FromDigits[tmp = Join[Last[s], (nn = #;
%t A048549 IntegerDigits[nn - Sum[b^n, {n, l = NestWhile[# + 1 &, 1, ! (nn - (Sum[b^n, {n, #}]) < 0) &] - 1}], b, l + 1])], b]]) &]; AppendTo[s, tmp], {20}]; Map[FromDigits, s] (* _Peter J. C. Moses_, Aug 06 2015 *)
%Y A048549 Cf. A048550, A048551, A048552, A048553, A048554, A048555, A048556, A030456.
%Y A048549 Similar to but different from A069603.
%K A048549 nonn,base
%O A048549 1,1
%A A048549 _Patrick De Geest_, May 15 1999