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

KEYWORD

nonn,base

AUTHOR

Amarnath Murthy, Nov 06 2005

EXTENSIONS

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

STATUS

approved