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

1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 3, 4, 5, 7, 9, 13, 15, 19, 21, 25, 4, 5, 6, 8, 10, 14, 16, 20, 22, 26, 6, 7, 8, 10, 12, 16, 18, 22, 24, 28, 8, 9, 10, 12, 14, 18, 20, 24, 26, 30, 12, 13, 14, 16, 18, 22, 24, 28, 30, 34, 14, 15, 16, 18, 20, 24, 26, 30, 32, 36, 18, 19, 20, 22, 24, 28

Offset

0,2

Links

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

Example

a(123) = prime(1) + prime(2) + prime(3) = 2 + 3 + 5 = 10.
a(10001) = 2 + 1 + 1 + 1 + 2 = 7.

Mathematica

f[n_] := Plus @@ (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, 75}] (* Robert G. Wilson v *)

Crossrefs

Cf. A113581; first occurrence in A113736.

Sequence in context: A242125 A124180 A151796 * A242124 A117322 A242123

Adjacent sequences: A113577 A113578 A113579 * A113581 A113582 A113583

Keyword

nonn,base

Author

Amarnath Murthy, Nov 06 2005

Extensions

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

Status

approved