login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #21 Sep 08 2022 08:46:23

%S 5,8,12,9,6,12,18,15,16,15,14,15,12,18,19,22,21,20,21,18,26,27,28,33,

%T 18,6,12,18,15,15,15,16,24,27,21,20,23,24,25,28,27,21,24,30,36,23,11,

%U 18,24,21,22,21,15,22,25,28,27,26,27,24,27,24,15,12,18,18

%N Sum of digits of prime(n) and digits of prime(n+1).

%e For n=6 , a(6) is the sum of digits of 13 and 17 which is 12.

%t Table[Plus@@IntegerDigits[Prime[n]] + Plus@@IntegerDigits[Prime[n + 1]], {n, 80}] (* _Vincenzo Librandi_, Sep 26 2018 *)

%o (Magma) [&+Intseq(NthPrime(n)) + &+Intseq(NthPrime(n+1)): n in [1..87]]; // _Vincenzo Librandi_, Sep 26 2018

%o (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

%Y Cf. A007605, A045533.

%K nonn,easy,base

%O 1,1

%A _Kei Ryan_, Sep 26 2018