OFFSET
1,3
COMMENTS
a(a(n)) = a(n).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
Multiplicative with a(p) = (if p+2 or p-2 is prime then p else 1), p prime.
EXAMPLE
a(92) = a(2*2*23) = 1; a(93) = a(3*31) = 3*31 = 93.
MATHEMATICA
f[p_, e_] := If[!Or @@ PrimeQ[p + {-2, 2}], 1, p^e]; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 81] (* Amiram Eldar, Jan 10 2020 *)
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Reinhard Zumkeller, Aug 20 2002
STATUS
approved