login
A354609
Carmichael numbers ending in 1.
5
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,1
MATHEMATICA
Select[10*Range[0, 3*10^5] + 1, CompositeQ[#] && Divisible[# - 1, CarmichaelLambda[#]] &] (* Amiram Eldar, Jul 08 2022 *)
PROG
(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
CROSSREFS
Intersection of A002997 and A017281.
Sequence in context: A290692 A293622 A322130 * A207080 A339875 A290945
KEYWORD
nonn,base
AUTHOR
Omar E. Pol, Jul 08 2022
STATUS
approved