|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|