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 A129693 #18 Feb 16 2025 08:33:05
%S A129693 2,3,5,7,19,23,29,31,47,53,67,71,173,179,211,263,269,281,283,431,479,
%T A129693 607,641,643,647,1559,1613,1619,1901,1907,2371,2423,2531,2549,2551,
%U A129693 3881,5471,5791,5827,14033,14519,17117,17167,21341,21347,22783,22787,22943
%N A129693 Right truncatable primes in base 9 (written in decimal form).
%C A129693 There are exactly 68 right truncatable primes in base 9.
%H A129693 Martin Renner, <a href="/A129693/b129693.txt">Table of n, a(n) for n = 1..68</a>
%H A129693 I. O. Angell, and H. J. Godwin, <a href="http://dx.doi.org/10.1090/S0025-5718-1977-0427213-2">On Truncatable Primes</a>, Math. Comput. 31, 265-267, 1977.
%H A129693 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TruncatablePrime.html">Truncatable Prime</a>.
%H A129693 <a href="/index/Tri#tprime">Index entries for sequences related to truncatable primes</a>
%p A129693 Extend:= proc(n) op(select(isprime, [seq(9*n+k,k=1..8)])) end proc:
%p A129693 S:= {}: Agenda:= {2,3,5,7}:
%p A129693 while Agenda <> {} do
%p A129693 S:= S union Agenda;
%p A129693 Agenda:= map(Extend, Agenda);
%p A129693 od:
%p A129693 sort(convert(S,list)); # _Robert Israel_, Mar 25 2018
%Y A129693 Cf. A024769, A076586.
%K A129693 nonn,base,fini,full
%O A129693 1,1
%A A129693 _Martin Renner_, Jun 01 2007