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 A261201 #13 Sep 25 2020 07:13:52
%S A261201 1,2,5,11,23,47,191,383,3067,12269,196307,6281839,50254717,201018869,
%T A261201 804075479,1608150959,102921661397,1646746582367,13173972658937,
%U A261201 105391781271503,210783562543007,3372537000688127,26980296005505019,863369472176160611
%N A261201 Base-10 representation of A261200.
%H A261201 Clark Kimberling, <a href="/A261201/b261201.txt">Table of n, a(n) for n = 1..500</a>
%t A261201 b = 2; s = {{1}};
%t A261201 Do[NestWhile[# + 1 &, 0, ! (PrimeQ[FromDigits[tmp = Join[Last[s], (nn = #; IntegerDigits[nn - Sum[b^n, {n, l = NestWhile[# + 1 &, 1, ! (nn - (Sum[b^n, {n, #}]) < 0) &] - 1}], b, l + 1])], b]]) &];
%t A261201 AppendTo[s, tmp], {30}]; Map[FromDigits, s]
%t A261201 Map[FromDigits, s] (* A261200 *)
%t A261201 Map[FromDigits[#, b] &, s] (* A261201 *)
%t A261201 (* _Peter J. C. Moses_, Aug 06 2015 *)
%Y A261201 A055011, A261200 and A261201 are all essentially the same sequence.
%K A261201 nonn,easy,base
%O A261201 1,2
%A A261201 _Clark Kimberling_, Sep 16 2015