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

Author

Amarnath Murthy, Nov 06 2005

Keywords

• nonn
• base

Comments

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

Examples

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

Links

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

Crossrefs

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

Fixed points are in A290675.

Programs

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 *)

Extensions

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