OFFSET
1,2
COMMENTS
a(1) = 1; for n > 1, smallest unitary divisor of n that is larger than 1.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = n/A052125(n). - Amiram Eldar, Sep 16 2024
MATHEMATICA
A034684[n_]:=Min[(#[[1]]^#[[2]])&/@FactorInteger[n]]; Array[A034684, 100] (* Enrique Pérez Herrero, Nov 01 2011 *)
PROG
(PARI) A034684(n) = {local(f, m); if(n==1, 1, f=factor(n); m=f[1, 1]^f[1, 2]; for(i=1, matsize(f)[1], m=min(m, f[i, 1]^f[i, 2])); m)} \\ Michael B. Porter, Jan 28 2010
(Haskell)
a034684 = minimum . a141809_row -- Reinhard Zumkeller, Jan 29 2013
CROSSREFS
KEYWORD
nonn,nice,easy
AUTHOR
STATUS
approved