A048381 -id:A048381 - cp's OEIS frontend

A048382 Primes resulting from procedure described in A048381.

2, 3, 5, 7, 11, 13, 17, 19, 23, 23, 211, 223, 31, 37, 311, 313, 317, 53, 523, 71, 73, 719, 113, 1117, 1123, 131, 137, 1319, 173, 1723, 191, 193, 197, 1913, 233, 2311, 211, 2111, 2113, 223, 227, 2213, 233, 2311, 251, 257, 271, 277, 2711, 2713, 2719, 2111

Offset: 1

Patrick De Geest, Mar 15 1999

nonn

Primes in A048380 in order of their occurrence. - Andrew Howroyd, Aug 15 2024

Cf. A048380, A048381.

a(n) = A048380(A048381(n)). - Andrew Howroyd, Aug 15 2024

Offset corrected by Andrew Howroyd, Aug 15 2024

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

Original entry on oeis.org

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

Patrick De Geest, Mar 15 1999

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

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

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

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

Name clarified by Jon E. Schoenfield, Oct 13 2019

cp's OEIS Frontend

A048382 Primes resulting from procedure described in A048381.

Views

Author

Keywords

Comments

Crossrefs

Formula

Extensions

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

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Extensions