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