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 A262648 #6 Oct 26 2015 22:24:51 %S A262648 1,43,55987,102792517,95125388731,3981385394034229, %T A262648 27783887681061330839,7141162170983023407421, %U A262648 40050387387887393264626841,400599026018424027699693461857,2500775549161597801615214316269999,35465901730059327498617881373769591811 %N A262648 Base-10 representation of 0 and the primes at A262647. %H A262648 Clark Kimberling, <a href="/A262648/b262648.txt">Table of n, a(n) for n = 1..300</a> %e A262648 n A262647(n) base-10 representation %e A262648 1 1 1 %e A262648 2 111 43 %e A262648 3 1111111 55987 %t A262648 s = {1}; base = 6; z = 20; Do[NestWhile[# + 1 &, 1, ! PrimeQ[tmp = FromDigits[Join[#, IntegerDigits[Last[s]], Reverse[#]] &[IntegerDigits[#, base]], base]] &]; %t A262648 AppendTo[s, FromDigits[IntegerDigits[tmp, base]]], {z}]; s (* A262645 *) %t A262648 Map[FromDigits[ToString[#], base] &, s] (* A262646 *) %t A262648 (* _Peter J. C. Moses_, Sep 01 2015 *) %Y A262648 Cf. A262647. %K A262648 nonn,base %O A262648 1,2 %A A262648 _Clark Kimberling_, Oct 25 2015