OFFSET
1,2
COMMENTS
This is a reduced version of A182816, without the "trivial" terms a(n)=n for prime indices n.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
"Lunkwill", Carmichael numbers and Fermat primality, Dec 02 2010.
MATHEMATICA
f[n_] := Times @@ ((1 + GCD[n-1, #-1]) & /@ FactorInteger[n][[;; , 1]]); f /@ Select[Range[165], !PrimeQ[#] &] (* Amiram Eldar, Mar 27 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Dec 05 2010
STATUS
approved