|
%I #13 Oct 26 2019 17:44:45
%S 2,3,5,7,8,10,11,14,16,17,19,20,22,23,25,26,28,29,31,32,35,37,38,40,
%T 41,43,44,46,47,49,50,52,53,55,56,58,59,61,62,64,65,67,68,71,73,74,76,
%U 77,79,80,82,83,85,86,88,89,91,92,95,97,98,100,101,103,104
%N Digit sums of the primes resulting from A061248.
%H Eric M. Schmidt, <a href="/A062132/b062132.txt">Table of n, a(n) for n = 1..1000</a>
%t t = {s = 2}; Do[If[(y = Total[IntegerDigits[x = Prime[n]]]) > s, AppendTo[t, s = y]], {n, 2, 5*10^6}]; t (* _Jayanta Basu_, Aug 09 2013 *)
%Y Cf. A061248.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Jun 05 2001
%E More terms from _Eric M. Schmidt_, Oct 08 2013
|
