login
Primes whose digit sum is a multiple of 10.
1

%I #19 Jan 21 2025 09:05:04

%S 19,37,73,109,127,163,181,271,307,389,433,479,523,541,569,587,613,631,

%T 659,677,811,839,857,929,947,983,1009,1063,1117,1153,1171,1289,1423,

%U 1487,1531,1559,1621,1667,1801,1847,1973,2017,2053,2099,2143,2161,2251

%N Primes whose digit sum is a multiple of 10.

%H Chris Caldwell, <a href="https://t5k.org/lists/small/1000.txt">The First 1,000 Primes</a>

%e The digit sum of 1009 is a multiple of ten.

%t Select[Prime[Range[335]], GCD[(Plus@@IntegerDigits[#]), 10] >= 10 &] (* _Alonso del Arte_, Jan 31 2011 *)

%t Select[Prime[Range[400]],Divisible[Total[IntegerDigits[#]],10]&] (* _Harvey P. Dale_, Aug 19 2012 *)

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

%Y Cf. A007605.

%K base,nonn,easy,changed

%O 1,1

%A _Parthasarathy Nambi_, Mar 15 2009