OFFSET
1,8
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MATHEMATICA
A073752[n_] := With[{f = FactorInteger[n][[All, 1]]}, GCD[n/f[[1]], n/f[[-1]]]];
Array[a, 100] (* Jean-François Alcover, Dec 03 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 07 2002
EXTENSIONS
Name edited by Antti Karttunen, Sep 23 2017
STATUS
approved