|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|