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 A048380 #16 Nov 07 2019 22:07:53
%S A048380 1,2,3,5,7,11,13,17,19,23,21,22,23,25,27,211,213,217,219,223,31,32,33,
%T A048380 35,37,311,313,317,319,323,51,52,53,55,57,511,513,517,519,523,71,72,
%U A048380 73,75,77,711,713,717,719,723,111,112,113,115,117,1111,1113,1117,1119
%N A048380 Digits d in decimal expansion of n replaced with d-th prime (replacing each 0 digit with a 1).
%H A048380 Harvey P. Dale, <a href="/A048380/b048380.txt">Table of n, a(n) for n = 0..1000</a>
%p A048380 a:= n-> (l-> parse(cat(seq(`if`(l[-i]=0, 1, ithprime(l[-i])),
%p A048380 i=1..nops(l)))))(convert(n, base, 10)):
%p A048380 seq(a(n), n=0..80); # _Alois P. Heinz_, Nov 07 2019
%t A048380 Table[FromDigits[Flatten[IntegerDigits/@(If[#==0,1,Prime[#]]&/@ IntegerDigits[ n])]], {n,0,60}] (* _Harvey P. Dale_, Sep 02 2018 *)
%Y A048380 Cf. A000040, A008578, A048381, A048383, A048384.
%K A048380 nonn,base
%O A048380 0,2
%A A048380 _Patrick De Geest_, Mar 15 1999
%E A048380 Name clarified by _Jon E. Schoenfield_, Oct 13 2019