%I #16 Apr 27 2015 14:33:55
%S 89,151,197,233,307,349,461,491,569,571,739,857,859,1013,1061,1097,
%T 1277,1291,1303,1483,1667,1747,1831,1913,1973,2003,2131,2357,2503,
%U 2531,2621,2683,3011,3067,3163,3209,3229,3259,3271,3581,3797,3929,4013,4027,4073,4219,4327,4597,4793,4877,4903
%N Primes sandwiched between 4-almost primes (A014613).
%C Primes p such that p - 1 and p + 1 are 4-almost primes.
%H Charles R Greathouse IV, <a href="/A247114/b247114.txt">Table of n, a(n) for n = 1..10000</a>
%e 89 - 1 = 2^3*11, 89 + 1 = 2*3^2*5.
%t Select[Prime[Range[1000]], 4 == PrimeOmega[# - 1] == PrimeOmega[# + 1] &]
%o (PARI) forprime(p= 1,5000, if(4==bigomega(p-1)&&4==bigomega(p+1), print1(p", ")))
%o (PARI) is(n)=bigomega(n-1)==4 && bigomega(n+1)==4 && isprime(n) \\ _Charles R Greathouse IV_, Apr 27 2015
%Y Cf. A014612, A014613, A046314, A154598, A063644, A247088.
%K nonn
%O 1,1
%A _Zak Seidov_, Jan 10 2015
|