OFFSET
2,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 2..10000
FORMULA
a(p) = 0 for prime p.
a(n) = n - A006530(n). - Michel Marcus, Jan 16 2015
MATHEMATICA
Table[n-Last@(First/@FactorInteger[n]), {n, 2, 200}] (* Vladimir Joseph Stephan Orlovsky, Apr 08 2011 *)
PROG
(PARI) a(n) = n - vecmax(factor(n)[, 1]); \\ Michel Marcus, Aug 07 2022
(Python)
from sympy import factorint
def a(n): return n - max(factorint(n))
print([a(n) for n in range(2, 81)]) # Michael S. Branicky, Aug 07 2022
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Oct 19 2002
STATUS
approved