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 A159614 #5 Feb 06 2019 00:28:53
%S A159614 13,17,31,71,107,113,311,701,709,907,1009,1021,1031,1033,1061,1069,
%T A159614 1091,1097,1103,1109,1151,1181,1201,1213,1231,1301,1321,1409,1511,
%U A159614 1601,1811,1901,3011,3019,3023,3049,3067,3083,3089,3109,3121,3203,3301,3407,3803
%N A159614 Emirps with multiplicative persistence value 1.
%C A159614 Intersection of A006567 and A046501.
%p A159614 read("transforms3") ; A031346 := proc(n) local nm,a,d ; nm := n ; a := 0 ; while nm > 10 do nm := mul(d,d=convert(nm,base,10)) ; a := a+1: od: a ; end: L := BFILETOLIST("b006567.txt") : for i from 1 to 300 do if A031346(op(i,L)) = 1 then printf("%d,", op(i,L)) ; fi; od: # _R. J. Mathar_, Apr 29 2009
%Y A159614 Cf. A006567, A046501.
%K A159614 nonn,base
%O A159614 1,1
%A A159614 _Lekraj Beedassy_, Apr 17 2009
%E A159614 More terms from _R. J. Mathar_, Apr 29 2009