[go: up one dir, main page]

login
A067467
Primes p such that p-1 has 3 distinct prime factors.
2
31, 43, 61, 67, 71, 79, 103, 127, 131, 139, 151, 157, 181, 191, 199, 223, 229, 239, 241, 271, 277, 281, 283, 307, 311, 313, 337, 349, 367, 373, 379, 397, 409, 419, 431, 439, 443, 457, 461, 491, 499, 521, 523, 541, 599, 601, 607, 613, 617, 619, 643, 647, 659
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[150]], PrimeNu[#-1]==3&] (* Harvey P. Dale, Mar 13 2022 *)
PROG
(PARI) lista(nn) = {forprime(p=1, nn, if (omega(p-1) == 3, print1(p, ", ")); ); } \\ Michel Marcus, Nov 22 2013
CROSSREFS
Sequence in context: A225862 A089713 A281246 * A317851 A304239 A069455
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 23 2002
STATUS
approved