A354609 Carmichael numbers ending in 1.

561, 2821, 6601, 8911, 15841, 29341, 41041, 75361, 101101, 115921, 162401, 172081, 188461, 252601, 314821, 340561, 399001, 410041, 488881, 512461, 530881, 552721, 656601, 658801, 838201, 852841, 1024651, 1152271, 1193221, 1461241, 1615681, 1857241, 1909001, 2100901, 2113921, 2433601, 2455921, 2704801, 3057601

Offset: 1

Author

Omar E. Pol, Jul 08 2022

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to Carmichael numbers

Crossrefs

Intersection of A002997 and A017281.

Cf. A352970, A355305, A355307, A355309.

Programs

Mathematica

Select[10*Range[0, 3*10^5] + 1, CompositeQ[#] && Divisible[# - 1, CarmichaelLambda[#]] &] (* Amiram Eldar, Jul 08 2022 *)

Python

from itertools import islice
from sympy import nextprime, factorint
def A354609_gen(): # generator of terms
    p, q = 3, 5
    while True:
        for n in range(p+2+(-p-1)%10, q, 10):
            f = factorint(n)
            if max(f.values()) == 1 and not any((n-1) % (p-1) for p in f):
                yield n
        p, q = q, nextprime(q)
A354609_list = list(islice(A354609_gen(),30)) # Chai Wah Wu, Jul 24 2022