A173941 Numbers k such that tau(lambda(k)) = lambda(tau(k)).
1, 2, 4, 6, 8, 12, 24, 100, 168, 180, 264, 300, 468, 552, 684, 1100, 1128, 1260, 1416, 1848, 1992, 2340, 2568, 3276, 3300, 3600, 3864, 4008, 4296, 4788, 4920, 5208, 5448, 6072, 6312, 7056, 7224, 7896, 8184, 8328, 8616, 9192, 9912
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
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]]]
-
PARI
lambda(n) = lcm(znstar(n)[2]); \\ A002322 isok(k) = numdiv(lambda(k)) == lambda(numdiv(k)); \\ Michel Marcus, Jul 17 2019
Extensions
Name edited by Michel Marcus, Mar 18 2016
Comments