OFFSET
1,1
EXAMPLE
For composite number 91 we have 91-7 = 84.
MATHEMATICA
#-FactorInteger[#][[1, 1]]&/@Complement[Range[2, 200], Prime[Range[PrimePi[200]]]] (* Harvey P. Dale, Dec 11 2010 *)
#-Divisors[#][[2]]&/@Select[Range[4, 200], !PrimeQ[#]&] (* Zak Seidov, Apr 09 2011 *)
PROG
(PARI) cminusp(n) = { for(x=2, n, forprime(p=2, floor(sqrt(x)), if(x%p==0, print1(x-p, ", "); break); ) ) }
(PARI){n=200; for(x=4, n, if(isprime(x), , print1(x-divisors(x)[2], ", ")))} \\ Zak Seidov, Apr 09 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Aug 12 2003
EXTENSIONS
Typo in data corrected by Zak Seidov, Apr 09 2011
STATUS
approved