login
Composite numbers k that divide 3^k - 2^k - 1, excluding powers of 2, 3 and 7.
9

%I #12 Feb 16 2025 08:33:04

%S 45,245,405,561,637,639,833,891,1105,1377,1576,1729,2465,2701,2821,

%T 3321,3645,4753,5589,6345,6517,6601,7885,8911,10365,10585,12005,13833,

%U 15841,17152,17265,18179,18721,21141,23552,25681,26411,29341,31213,31621

%N Composite numbers k that divide 3^k - 2^k - 1, excluding powers of 2, 3 and 7.

%C This sequence includes all the Carmichael numbers (A002997).

%C Prime p divides 3^p - 2^p - 1. Quotients (3^p - 2^p - 1)/p, where p = prime(n), are listed in A127071.

%C Numbers k such that k divides 3^k - 2^k - 1 are listed in A127072.

%C Pseudoprimes in A127072 include all the powers of the primes {2, 3, 7}.

%C Numbers k such that k^2 divides 3^k - 2^k - 1 are listed in A127074.

%C Numbers k such that k^3 divides 3^k - 2^k - 1 are 1, 4, 7, ...

%H Amiram Eldar, <a href="/A127073/b127073.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CarmichaelNumber.html">Carmichael number</a>.

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Pseudoprime.html">Pseudoprime</a>.

%t Select[Select[Range[2^15],!PrimeQ[ # ]&&IntegerQ[(3^#-2^#-1)/# ]&],!IntegerQ[Log[2,# ]]&&!IntegerQ[Log[3,# ]]&&!IntegerQ[Log[7,# ]]&]

%Y Cf. A002997, A127071, A127072, A127074.

%K nonn,changed

%O 1,1

%A _Alexander Adamchuk_, Jan 04 2007