OFFSET
1,1
COMMENTS
These are the primes in A100349. No others < 10^9; conjecture that this sequence is finite.
EXAMPLE
37 is here because 37-2, 37-4, 37-16 are semiprimes and 37-8, 37-32 are primes.
MATHEMATICA
SemiPrimeQ[n_Integer] := If[Abs[n]<2, False, (2==Plus@@Transpose[FactorInteger[Abs[n]]][[2]])]; lst={}; Do[k=1; While[n=Prime[i]; p=n-2^k; p>0 && (SemiPrimeQ[p] || PrimeQ[p]), k++ ]; If[p<=0, AppendTo[lst, n]], {i, 2, 1000}]; lst
CROSSREFS
KEYWORD
more,nonn
AUTHOR
T. D. Noe, Nov 18 2004
STATUS
approved