login
A158293
Primes whose digit sum is a multiple of 10.
1
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,1
EXAMPLE
The digit sum of 1009 is a multiple of ten.
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 *)
PROG
(Magma) [ p: p in PrimesUpTo(2500) | &+Intseq(p) mod 10 eq 0 ];
CROSSREFS
Sequence in context: A301617 A211821 A061237 * A107579 A245381 A050528
KEYWORD
base,nonn,easy
AUTHOR
Parthasarathy Nambi, Mar 15 2009
STATUS
approved