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,1

Links

Table of n, a(n) for n=1..47.

Chris Caldwell, The First 1,000 Primes

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

Adjacent sequences: A158290 A158291 A158292 * A158294 A158295 A158296

Keyword

base,nonn,easy

Author

Parthasarathy Nambi, Mar 15 2009

Status

approved