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 A155989 #13 Feb 14 2019 05:58:32
%S A155989 3,5,11,17,37,41,47,59,71,73,89,101,107,109,113,127,139,151,163,167,
%T A155989 181,191,197,211,229,233,251,263,271,277,293,307,313,331,349,353,373,
%U A155989 383,397,401,421,431,439,449,479,487,499,509,557,563,571,587,613,617,631
%N A155989 List of numbers prime(k) as k runs through the numbers with a single prime digit.
%F A155989 a(n) = A000040(A092620(n)). - _R. J. Mathar_, May 15 2010
%p A155989 numPdgs := proc(n) local f,d ; f := 0 ; for d in convert(n,base,10) do if d in {2,3,5,7} then f :=f+1; end if; end do; f ; end proc:
%p A155989 A092620 := proc(n) option remember; if n = 1 then 2; else for a from procname(n-1)+1 do if numPdgs(a) = 1 then return a; end if; end do: end if; end proc:
%p A155989 A155989 := proc(n) ithprime(A092620(n)) ; end proc: seq(A155989(n),n=1..120) ; # _R. J. Mathar_, May 15 2010
%t A155989 Prime[#]&/@Select[Range[150],Count[IntegerDigits[#],_?PrimeQ]==1&] (* _Harvey P. Dale_, Feb 26 2013 *)
%Y A155989 Cf. A000040, A092620.
%K A155989 nonn,base
%O A155989 1,1
%A A155989 _Juri-Stepan Gerasimov_, Feb 01 2009
%E A155989 Edited by _N. J. A. Sloane_, Feb 02 2009