OFFSET
1,2
COMMENTS
If s,t are terms, then so is lcm(s,t); in particular, if s,t are coprime, then s*t is also a term. Primitive squarefree terms are listed in A353871.
LINKS
Aloe Poliszuk, Table of n, a(n) for n = 1..1000
MATHEMATICA
psi[1] = 1; psi[n_] := n * Times @@ (1 + 1/Transpose[FactorInteger[n]][[1]]); Select[Range[3000], SquareFreeQ[#] && Divisible[psi[#], CarmichaelLambda[#]] &] (* Amiram Eldar, May 09 2022 *)
PROG
(PARI) lpsi(n)=lcm(znstar(n)[2]) \\ A002322.
dpsi(n)=n*sumdivmult(n, d, issquarefree(d)/d) \\ A001615.
isok(n) = issquarefree(n) && (dpsi(n)%lpsi(n)==0); \\ Aloe Poliszuk, Nov 12 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, May 08 2022
STATUS
approved
