|
%I #10 Sep 08 2022 08:45:45
%S 2,8,14,21,29,42,53,63,75,90,97,120,143,144,155,159,167,180,193,204,
%T 224,235,249,261,262,267,286,304,324,340,359,373,380,387,401,414,440,
%U 459,483,493,509,507,523,540,554,567,587,619,634,641,654,677,696,728,760
%N Sum of all digits of primes from n-th prime to (2*n-1)-th prime.
%H Harvey P. Dale, <a href="/A161464/b161464.txt">Table of n, a(n) for n = 1..1000</a>
%e 2nd prime to 3rd prime are 3, 5, hence a(2) = 8; 3rd prime to 5th prime are 5, 7, 11, hence a(3) = 14; 4th prime to 7th prime are 7, 11, 13, 17, hence a(4) = 21.
%t Module[{nn=60,pr},pr=Prime[Range[2nn-1]];Table[Total[Flatten[ IntegerDigits/@ Take[pr,{n,2n-1}]]],{n,nn}]] (* _Harvey P. Dale_, Jul 13 2015 *)
%o (Magma) [ &+[ &+Intseq(NthPrime(k), 10): k in [n..2*n-1] ]: n in [1..55] ]; // _Klaus Brockhaus_, Jun 13 2009
%Y Cf. A000040 (primes), A007605 (sum of digits of n-th prime).
%K nonn,base
%O 1,1
%A _Juri-Stepan Gerasimov_, Jun 10 2009
%E Edited and extended by _Klaus Brockhaus_, Jun 13 2009
|
