A067467 Primes p such that p-1 has 3 distinct prime factors.

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

Amiram Eldar, Table of n, a(n) for n = 1..10000

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

Cf. A006093, A008334.

Sequence in context: A225862 A089713 A281246 * A317851 A304239 A069455

Adjacent sequences: A067464 A067465 A067466 * A067468 A067469 A067470

Keyword

nonn

Author

Benoit Cloitre, Feb 23 2002

Status

approved