OFFSET
1,1
COMMENTS
Is the sequence finite? If so, then A039669 is finite.
LINKS
T. D. Noe, Table of n < 2^31
EXAMPLE
27 is here because 27-2 is a semiprime and 27-4, 27-8 and 27-16 are primes.
MATHEMATICA
SemiPrimeQ[n_Integer] := If[Abs[n]<2, False, (2==Plus@@Transpose[FactorInteger[Abs[n]]][[2]])]; lst={}; Do[k=1; While[p=n-2^k; p>0 && (SemiPrimeQ[p] || PrimeQ[p]), k++ ]; If[p<=0, AppendTo[lst, n]], {n, 3, 1000}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Nov 18 2004
STATUS
approved