A062336 Primes whose sum of digits is a multiple of 7.

7, 43, 59, 61, 149, 151, 167, 223, 239, 241, 257, 293, 313, 331, 347, 383, 419, 421, 491, 509, 563, 601, 617, 653, 743, 761, 941, 1033, 1049, 1051, 1123, 1193, 1213, 1229, 1231, 1283, 1303, 1319, 1321, 1373, 1409, 1427, 1481, 1553, 1571, 1607, 1733

Offset: 1

Author

Amarnath Murthy, Jun 21 2001

Keywords

• nonn
• base
• easy

Examples

			419 is a prime with sum of digits = 14, hence belongs to the sequence.
		

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000

Programs

Magma

[ p: p in PrimesUpTo(100000) | &+Intseq(p) mod 7 eq 0 ]; // Vincenzo Librandi, Apr 02 2011

Mathematica

Select[Prime[Range[300]],Divisible[Total[IntegerDigits[#]],7]&] (* Harvey P. Dale, Jun 27 2021 *)

PARI

isok(n) = isprime(n) && sumdigits(n) % 7 == 0 \\ Harry J. Smith, Aug 05 2009

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), Jul 06 2001