PROG
(MAGMAMagma) Is5primes:=func<i|&+[d[2]: d in Factorization(i)] eq 5>; [n: n in [2..22000] | Is5primes(n) and Is5primes(2*n+1)]; // Bruno Berselli, Jan 30 2013
(MAGMAMagma) Is5primes:=func<i|&+[d[2]: d in Factorization(i)] eq 5>; [n: n in [2..22000] | Is5primes(n) and Is5primes(2*n+1)]; // Bruno Berselli, Jan 30 2013
editing
approved
(PARI) is(n)=bigomega(n)==5 && bigomega(2*n+1)==5 \\ Charles R Greathouse IV, Feb 01 2017
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Contribution from _From _Zak Seidov_, Jan 30 2013. : (Start)
First integers n such that n, 2n+1, 4n+3, 8n+7, 16n+15, 32n+31 and 64n+63 all are Sophie Germain 5-almost primes are: 433833417, 463078210, 648871975. (endEnd)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed