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