OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory): for n from 1 to 10000 do:if tau(lambda(n))=lambda(tau(n))then
printf(`%d, `, n):else fi:od:
MATHEMATICA
Cases[Range[1000], k_ /; DivisorSigma[0, CarmichaelLambda[k]] == CarmichaelLambda[DivisorSigma[0, k]]]
PROG
(PARI) lambda(n) = lcm(znstar(n)[2]); \\ A002322
isok(k) = numdiv(lambda(k)) == lambda(numdiv(k)); \\ Michel Marcus, Jul 17 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Nov 26 2010
EXTENSIONS
Name edited by Michel Marcus, Mar 18 2016
STATUS
approved