A099184 Heavy primes: primes p such that p-1 has more than 2 divisors with multiplicity.
13, 17, 19, 29, 31, 37, 41, 43, 53, 61, 67, 71, 73, 79, 89, 97, 101, 103, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 173, 181, 191, 193, 197, 199, 211, 223, 229, 233, 239, 241, 251, 257, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 349
Offset: 2
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 2..1000
Crossrefs
Cf. A059456.
Programs
-
Mathematica
Select[Prime[Range[70]],PrimeOmega[#-1]>2&] (* Harvey P. Dale, May 28 2012 *)
-
PARI
f(n) = forprime(x=2,n,y=bigomega(x-1);if(y>2,print1(x",")))
Comments