A113581 Define prime(0) = 1; then a(n) = product prime(d), where d ranges over all the decimal digits of n.

1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 2, 4, 6, 10, 14, 22, 26, 34, 38, 46, 3, 6, 9, 15, 21, 33, 39, 51, 57, 69, 5, 10, 15, 25, 35, 55, 65, 85, 95, 115, 7, 14, 21, 35, 49, 77, 91, 119, 133, 161, 11, 22, 33, 55, 77, 121, 143, 187, 209, 253, 13, 26, 39, 65, 91, 143, 169, 221, 247, 299

Offset

0,2

Comments

a(14) = 14. a(17) = 34.

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Example

a(123)= prime(1)*prime(2) *prime(3) = 2*3*5 = 30.

Mathematica

f[n_] := Times @@ (IntegerDigits[n] /. {0 -> 1, 1 -> 2, 2 -> 3, 3 -> 5, 4 -> 7, 5 -> 11, 6 -> 13, 7 -> 17, 8 -> 19, 9 -> 23}); Table[ f[n], {n, 0, 69}] (* Robert G. Wilson v *)

Crossrefs

Cf. A113580; A113735 gives positions where A113581(n)==0 (mod n).

Fixed points are in A290675.

Sequence in context: A206159 A242127 A242126 * A242125 A124180 A151796

Adjacent sequences: A113578 A113579 A113580 * A113582 A113583 A113584

Keyword

nonn,base

Author

Amarnath Murthy, Nov 06 2005

Extensions

More terms from Robert G. Wilson v, Nov 07 2005

Status

approved