login
A319675
Sum of digits of prime(n) and digits of prime(n+1).
0
5, 8, 12, 9, 6, 12, 18, 15, 16, 15, 14, 15, 12, 18, 19, 22, 21, 20, 21, 18, 26, 27, 28, 33, 18, 6, 12, 18, 15, 15, 15, 16, 24, 27, 21, 20, 23, 24, 25, 28, 27, 21, 24, 30, 36, 23, 11, 18, 24, 21, 22, 21, 15, 22, 25, 28, 27, 26, 27, 24, 27, 24, 15, 12, 18, 18
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
Sequence in context: A133522 A133269 A247245 * A076635 A294227 A116602
KEYWORD
nonn,easy,base
AUTHOR
Kei Ryan, Sep 26 2018
STATUS
approved