login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A048380 Digits d in decimal expansion of n replaced with d-th prime (replacing each 0 digit with a 1). 7
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 (list; graph; refs; listen; history; text; internal format)
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

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

Sequence in context: A242123 A229787 A329147 * A048382 A038179 A192489

Adjacent sequences:  A048377 A048378 A048379 * A048381 A048382 A048383

KEYWORD

nonn,base

AUTHOR

Patrick De Geest, Mar 15 1999

EXTENSIONS

Name clarified by Jon E. Schoenfield, Oct 13 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 12 12:18 EDT 2020. Contains 335661 sequences. (Running on oeis4.)