OFFSET
1,1
LINKS
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
KEYWORD
base,nonn,easy
AUTHOR
Parthasarathy Nambi, Mar 15 2009
STATUS
approved