OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537
FORMULA
PROG
(PARI) A336644(n) = ((n-factorback(factorint(n)[, 1])) / core(n));
(Python)
from math import prod
from sympy.ntheory.factor_ import primefactors, core
def A336644(n): return (n-prod(primefactors(n)))//core(n) # Chai Wah Wu, Dec 30 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 28 2020
STATUS
approved