OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
b[n_] := If[n == 1, 1, Product[{p, e} = pe; Which[
Mod[p, 4] == 1, p + 2,
Mod[p, 4] == 3, p - 2,
True, 2]^e, {pe, FactorInteger[n]}]];
a[n_] := b[b[n]];
Array[a, 100] (* Jean-François Alcover, Nov 21 2021 *)
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Reinhard Zumkeller, Jun 05 2002
STATUS
approved