OFFSET
1,1
EXAMPLE
For n=6 , a(6) is the sum of digits of 13 and 17 which is 12.
MATHEMATICA
Table[Plus@@IntegerDigits[Prime[n]] + Plus@@IntegerDigits[Prime[n + 1]], {n, 80}] (* Vincenzo Librandi, Sep 26 2018 *)
PROG
(Magma) [&+Intseq(NthPrime(n)) + &+Intseq(NthPrime(n+1)): n in [1..87]]; // Vincenzo Librandi, Sep 26 2018
(GAP) P:=Filtered([1..400], IsPrime);; List(List([1..Size(P)-1], i->ListOfDigits(P[i])+ListOfDigits(P[i+1])), Sum); # Muniru A Asiru, Sep 26 2018
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Kei Ryan, Sep 26 2018
STATUS
approved