login
A067466
Primes p such that p-1 has 2 distinct prime factors.
2
7, 11, 13, 19, 23, 29, 37, 41, 47, 53, 59, 73, 83, 89, 97, 101, 107, 109, 113, 137, 149, 163, 167, 173, 179, 193, 197, 227, 233, 251, 263, 269, 293, 317, 347, 353, 359, 383, 389, 401, 433, 449, 467, 479, 487, 503, 509, 557, 563, 569, 577, 587, 593, 641, 653
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[120]], PrimeNu[#-1] == 2 &] (* Amiram Eldar, Jun 06 2022 *)
PROG
(PARI) lista(nn) = {forprime(p=1, nn, if (omega(p-1) == 2, print1(p, ", ")); ); } \\ Michel Marcus, Nov 22 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 23 2002
STATUS
approved