%I #16 May 24 2022 16:31:33

%S 1,24,2475,2520,2728,5347,6683,8184,8307,8568,9108,9306,10106,11484,

%T 12974,16041,17892,20049,23265,25265,26199,30318,32256,32435,38922,

%U 39618,40918,44010,44576,44872,50976,55224,55720,56516,58817,63720,63952,64890,65689,66528,67356,69860,72072,73409,74448,75795,79101,83160

%N Numbers k for which A354102(k) = A354102(sigma(k)).

%C No common terms with A006872 in range a(2) .. a(1001).

%C Among the 1001 initial terms, only 3119744 and 13890816 occur also in A191217.

%H Antti Karttunen, <a href="/A354106/b354106.txt">Table of n, a(n) for n = 1..1001</a>

%H <a href="/index/O#opnseqs">Index entries for sequences where odd perfect numbers must occur, if they exist at all</a>

%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>

%o (PARI)

%o \\ Needs also the program from A267099:

%o A354102(n) = eulerphi(A267099(n));

%o isA354106(k) = (A354102(k)==A354102(sigma(k)));

%Y Cf. A000010, A000203, A354102.

%Y Cf. also A006872, A191217, A354189, A354362.

%K nonn

%O 1,2

%A _Antti Karttunen_, May 18 2022