|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|