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 A069346 #8 Dec 10 2013 20:31:22
%S A069346 2,5,7,13,17,19,23,31,37,41,43,47,53,67,73,83,89,103,107,109,113,127,
%T A069346 131,139,151,157,163,167,179,181,199,211,227,233,239,241,251,257,263,
%U A069346 281,283,293,307,311,313,317,337,347,353,359
%N A069346 Primes of the form n - Omega(n), where Omega(n) is the number of prime factors of n, A001222(n).
%C A069346 The representation is ambiguous, see A069347.
%H A069346 Charles R Greathouse IV, <a href="/A069346/b069346.txt">Table of n, a(n) for n = 1..10000</a>
%e A069346 a(10) = 41 = A069345(44) = 44-3 (as 44 = 2*2*11).
%t A069346 Select[Table[n - PrimeOmega[n], {n, 1, 400}], PrimeQ] // Union (* _Jean-François Alcover_, Jun 08 2013 *)
%o A069346 (PARI) is(n)=for(k=1, log(n)\log(2)+1, if(bigomega(n+k)==k, return(isprime(n)))); 0 \\ _Charles R Greathouse IV_, Dec 10 2013
%Y A069346 Cf. A069348, A069356.
%K A069346 nonn
%O A069346 1,1
%A A069346 _Reinhard Zumkeller_, Mar 18 2002