login
A353634
Nondeficient numbers k such that phi(k) = phi(sigma(k)) and A003958(k) = A003958(sigma(k)).
2
234728, 280904, 461168, 463112, 604136, 742664, 909872, 996008, 1065896, 1191944, 1204424, 1224392, 1465256, 1527656, 1620008, 1757288, 1758536, 1956848, 1985672, 2081768, 2102984, 2358824, 2376296, 2405552, 2518568, 2543528, 2589704, 2670824, 2820584, 2899208, 2912936, 3014024, 3151304, 3196232, 3374696, 3432104
OFFSET
1,1
PROG
(PARI)
A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };
isA353634(n) = { my(s=sigma(n)); if(s<(2*n), return(0)); ((eulerphi(s)==eulerphi(n)) && (A003958(s)==A003958(n))); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 04 2022
STATUS
approved