A158293 Primes whose digit sum is a multiple of 10.

19, 37, 73, 109, 127, 163, 181, 271, 307, 389, 433, 479, 523, 541, 569, 587, 613, 631, 659, 677, 811, 839, 857, 929, 947, 983, 1009, 1063, 1117, 1153, 1171, 1289, 1423, 1487, 1531, 1559, 1621, 1667, 1801, 1847, 1973, 2017, 2053, 2099, 2143, 2161, 2251

Offset: 1

Author

Parthasarathy Nambi, Mar 15 2009

Keywords

• base
• nonn
• easy

Examples

			The digit sum of 1009 is a multiple of ten.
		

Links

• Chris Caldwell, The First 1,000 Primes

Crossrefs

Cf. A007605.

Programs

Magma

[ p: p in PrimesUpTo(2500) | &+Intseq(p) mod 10 eq 0 ];

Mathematica

Select[Prime[Range[335]], GCD[(Plus@@IntegerDigits[#]), 10] >= 10 &] (* Alonso del Arte, Jan 31 2011 *)
Select[Prime[Range[400]],Divisible[Total[IntegerDigits[#]],10]&] (* Harvey P. Dale, Aug 19 2012 *)