login
A113581
Define prime(0) = 1; then a(n) = product prime(d), where d ranges over all the decimal digits of n.
7
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
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
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Nov 06 2005
EXTENSIONS
More terms from Robert G. Wilson v, Nov 07 2005
STATUS
approved