A062338 Primes whose sum of digits is a multiple of 4.
13, 17, 31, 53, 71, 79, 97, 103, 107, 211, 233, 251, 277, 349, 367, 389, 431, 439, 457, 479, 503, 521, 547, 569, 587, 619, 659, 673, 677, 691, 701, 709, 727, 839, 853, 857, 907, 929, 947, 983, 1021, 1061, 1069, 1087, 1151, 1201, 1223, 1249, 1289, 1429
Offset: 1
Examples
349 is a prime with sum of digits =16=4*4, hence belongs to the sequence.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[ p: p in PrimesUpTo(10000) | &+Intseq(p) mod 4 eq 0 ]; /* Vincenzo Librandi, Apr 02 2011 */
-
Maple
filter:= x -> (convert(convert(x,base,10),`+`) mod 4 = 0) and isprime(x); A062338:= select(filter, [seq(2*i+1,i=0..1000)]); # Robert Israel, Apr 20 2014
-
PARI
is(n)=isprime(n) && sumdigits(n)%4==0 \\ Charles R Greathouse IV, Mar 09 2022
Extensions
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jul 06 2001