OFFSET
1,1
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
EXAMPLE
For 91=7*13 we have 91-13 = 78.
For 92=2*2*23 we have 92-23 = 69.
MATHEMATICA
DeleteCases[Table[n - FactorInteger[n][[-1, 1]], {n, 100}], 0 _] (* Ivan Neretin, Jun 20 2019 *)
PROG
(PARI) cminusp2(n) = { for(x=2, n, forstep(p=x, 2, -1, if(isprime(p) & x%p==0 & isprime(x)==0, print1(x-p, ", "); break); ) ) }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Aug 12 2003
EXTENSIONS
Offset corrected by Ivan Neretin, Jun 20 2019
STATUS
approved