OFFSET
0,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
Name clarified by Jon E. Schoenfield, Oct 13 2019
STATUS
approved