|
%I #26 Sep 08 2022 08:45:03
%S 17,53,71,79,97,107,233,251,277,349,367,431,439,457,503,521,547,619,
%T 673,691,701,709,727,853,907,1061,1069,1087,1151,1223,1249,1429,1447,
%U 1483,1511,1601,1609,1627,1663,1753,1861,1933,1951,2141,2213,2239,2293
%N Primes whose sum of digits is a multiple of 8.
%F Intersection of A000040 (primes) and A273188 (numbers with sum of digits divisible by 8). - _M. F. Hasler_, Mar 10 2022
%e 709 is a prime with sum of digits = 16, hence belongs to the sequence.
%t Select[Prime[Range[500]],Divisible[Total[IntegerDigits[#]],8]&] (* _Harvey P. Dale_, Jun 23 2011 *)
%o (Magma) [ p: p in PrimesUpTo(10000) | &+Intseq(p) mod 8 eq 0 ]; // _Vincenzo Librandi_, Apr 02 2011
%o (PARI) is(n)= sumdigits(n)%8==0 && isprime(n) \\ _Charles R Greathouse IV_, Mar 09 2022
%Y Contains A062343 (primes with sum of digits s = 8), A106757 (s = 16), A106768 (s = 32), A106773 (s = 40), A106784 (s = 56) and A107618 (s = 64) as a subsequence.
%Y Subsequence of A062338 (primes with sum of digits divisible by 4) and of A273188 (numbers with sum of digits divisible by 8).
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, Jun 21 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), Jul 06 2001
|
