|
%I
%S 3,21,120,210,300,496,595,946,1378,1891,2278,2485,2926,3655,3916,4186,
%T 4465,4753,5356,5671,6328,6670,7381,7750,8128,8515,8911,9316,9730,
%U 10011,10585,11476,11935,12880,13366,13861,14365,15931,16471,18145,18721
%N Triangular numbers for which the sum of the digits is a prime number.
%e 595 is in the sequence because (1) it is a triangular number and (2) the sum of its digits 5+9+5=19 is a prime number.
%t With[{trnos=Accumulate[Range[200]]},Select[trnos,PrimeQ[Total[IntegerDigits[#]]]&]] (* From Harvey P. Dale, Feb 14 2011 *)
%Y Cf. A000217.
%K nonn,base
%O 1,1
%A Luc Stevens (lms022(AT)yahoo.com), Apr 26 2006
|
