A048380 Digits d in decimal expansion of n replaced with d-th prime (replacing each 0 digit with a 1).

1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 21, 22, 23, 25, 27, 211, 213, 217, 219, 223, 31, 32, 33, 35, 37, 311, 313, 317, 319, 323, 51, 52, 53, 55, 57, 511, 513, 517, 519, 523, 71, 72, 73, 75, 77, 711, 713, 717, 719, 723, 111, 112, 113, 115, 117, 1111, 1113, 1117, 1119

Offset: 0

Author

Patrick De Geest, Mar 15 1999

Keywords

• nonn
• base

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A000040, A008578, A048381, A048383, A048384.

Programs

Maple

a:= n-> (l-> parse(cat(seq(`if`(l[-i]=0, 1, ithprime(l[-i])),
             i=1..nops(l)))))(convert(n, base, 10)):
seq(a(n), n=0..80);  # Alois P. Heinz, Nov 07 2019

Mathematica

Table[FromDigits[Flatten[IntegerDigits/@(If[#==0,1,Prime[#]]&/@ IntegerDigits[ n])]], {n,0,60}] (* Harvey P. Dale, Sep 02 2018 *)

Extensions

Name clarified by Jon E. Schoenfield, Oct 13 2019