A048383 -id:A048383 - cp's OEIS frontend

A048384 Squares resulting from procedure described in A048383.

1, 25, 225, 3721, 7225, 13225, 19321, 27225, 35721, 319225, 55225, 57121, 511225, 112225, 133225, 172225, 17131321, 192721, 235225, 212521, 2217121, 235225, 373321, 3115225, 317231721, 32319225, 511225, 5112121, 1125721, 11323225

Offset: 1

Patrick De Geest, Mar 15 1999

nonn

Cf. A048380, A048383.

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

A048384 Squares resulting from procedure described in A048383.

Views

Author

Keywords

Crossrefs

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