OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
EXAMPLE
a(5) = 13 because p(5) = 11 and 11 + (1 + 1) = 13.
MATHEMATICA
Table[ Prime[n] + Apply[ Plus, IntegerDigits[ Prime[n]]], {n, 1, 75} ]
PROG
(PARI) forprime(p=2, 300, print1(p+sumdigits(p), ", ")) \\ Edited by M. F. Hasler, Nov 06 2018
(PARI) SumD(x)={local(s); s=0; while (x>9, s+=x-10*(x\10); x\=10); return(s + x)}
{ for (n=1, 1000, a=prime(n); a+=SumD(a); write("b065073.txt", n, " ", a)) } \\ Harry J. Smith, Oct 05 2009
(PARI) A065073(n)=sumdigits(n=prime(n))+n \\ M. F. Hasler, Nov 06 2018
(Haskell) a065073 = a062028 . a000040 -- Reinhard Zumkeller, Sep 27 2014
(Magma) [NthPrime(n) + &+Intseq(NthPrime(n), 10): n in [1..80]]; // Vincenzo Librandi, Nov 07 2018
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Bodo Zinser, Nov 09 2001
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org) and Robert G. Wilson v, Nov 13 2001
STATUS
approved