A135979 Indices n such that 2^prime(n)-1 has exactly 2 distinct prime factors.

5, 9, 12, 13, 17, 19, 23, 25, 26, 27, 29, 32, 33, 34, 35, 39, 45, 46, 49, 53, 57, 58, 60, 62, 69, 74, 75, 82, 88, 93, 99, 129, 140, 152, 164, 166, 168, 178, 179

Offset: 1

Author

Artur Jasinski, Dec 09 2007

Keywords

• nonn
• more

Comments

a(40)>=206. - Amiram Eldar, Sep 29 2018

Crossrefs

Cf. A000225, A065341, A054723, A134852, A135975, A135976, A135977, A135978.

Programs

Mathematica

k = {}; Do[If[ ! PrimeQ[2^Prime[n] - 1], c = FactorInteger[2^Prime[n] - 1]; d = Length[c]; If[d == 2, AppendTo[k, n]]], {n, 1, 40}]; k
Select[Range[40],PrimeNu[2^Prime[#]-1]==2&] (* Harvey P. Dale, Jul 07 2013 *)

Formula

Equals {k: A001221(A001348(k)) = 2}. a(n) = A049084(A135978(n)). - R. J. Mathar, May 03 2008

Extensions

Edited by R. J. Mathar, May 03 2008

a(17)-a(34) from Donovan Johnson, Jun 14 2009

a(35)-a(39) from Amiram Eldar, Sep 29 2018