cp's OEIS Frontend

A340092 Carmichael numbers k for which A053575(k) [the odd part of phi] does not divide k-1.

%I A340092 #14 Apr 22 2024 14:28:13
%S A340092 1729,2821,15841,29341,41041,52633,63973,75361,101101,115921,126217,
%T A340092 172081,188461,252601,278545,294409,314821,334153,340561,399001,
%U A340092 488881,512461,530881,552721,656601,658801,670033,748657,825265,838201,852841,997633,1024651,1033669,1050985,1082809,1152271,1193221,1461241,1569457
%N A340092 Carmichael numbers k for which A053575(k) [the odd part of phi] does not divide k-1.
%H A340092 Amiram Eldar, <a href="/A340092/b340092.txt">Table of n, a(n) for n = 1..10000</a>
%H A340092 <a href="/index/Ca#Carmichael">Index entries for sequences related to Carmichael numbers</a>.
%t A340092 odd[n_] := n/2^IntegerExponent[n, 2]; Select[Range[1, 10^6, 2], CompositeQ[#] && Divisible[# - 1, CarmichaelLambda[#]] && !Divisible[# - 1, odd @ EulerPhi[#]] &] (* _Amiram Eldar_, Dec 31 2020 *)
%o A340092 (PARI)
%o A340092 A000265(n) = (n>>valuation(n, 2));
%o A340092 A002322(n) = lcm(znstar(n)[2]);
%o A340092 isA340092(n) = ((n>1)&&!isprime(n)&&(!((n-1)%A002322(n)))&&(0<((n-1)%A000265(eulerphi(n)))));
%Y A340092 Complement of A339869 in A002997.
%Y A340092 Subsequence of A340091.
%Y A340092 Cf. A002322, A053575.
%K A340092 nonn
%O A340092 1,1
%A A340092 _Antti Karttunen_, Dec 31 2020