A319675 Sum of digits of prime(n) and digits of prime(n+1).

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

Links

Table of n, a(n) for n=1..66.

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

Cf. A007605, A045533.

Sequence in context: A133522 A133269 A247245 * A076635 A294227 A116602

Adjacent sequences: A319672 A319673 A319674 * A319676 A319677 A319678

Keyword

nonn,easy,base

Author

Kei Ryan, Sep 26 2018

Status

approved