A247071 -id:A247071 - cp's OEIS frontend

A161508 Numbers k such that 2^k-1 has only one primitive prime factor.

2, 3, 4, 5, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 24, 26, 27, 30, 31, 32, 33, 34, 38, 40, 42, 46, 49, 54, 56, 61, 62, 65, 69, 77, 78, 80, 85, 86, 89, 90, 93, 98, 107, 120, 122, 126, 127, 129, 133, 145, 147, 150, 158, 165, 170, 174, 184, 192, 195, 202, 208

Offset: 1

T. D. Noe, Jun 17 2009

nonn

Also, numbers k such that A086251(k) = 1.
Also, numbers k such that A064078(k) is a prime power.
The corresponding primitive primes are listed in A161509.
The binary expansion of 1/p has period k and this is the only prime with such a period. The binary analog of A007498.
This sequence has many terms in common with A072226. A072226 has the additional term 6; but it does not have terms 18, 20, 21, 54, 147, 342, 602, and 889 (less than 10000).
All known terms that are not in A072226 belong to A333973.

T. D. Noe, Table of n, a(n) for n=1..179
Wikipedia, Unique prime, section Binary unique primes.

Cf. A007498, A064078, A072226, A086251, A144755, A161509, A247071, A333973.

Select[Range[1000], PrimePowerQ[Cyclotomic[ #,2]/GCD[Cyclotomic[ #,2],# ]]&]

is_A161508(n) = my(t=polcyclo(n,2)); isprimepower(t/gcd(t,n)); \\ Charles R Greathouse IV, Nov 17 2014

A333973 Numbers k such that A019320(k) is greater than A064078(k) and the latter is a prime or a prime power.

Original entry on oeis.org

18, 20, 21, 54, 147, 342, 602, 889, 258121

Offset: 1

Jeppe Stig Nielsen, Sep 22 2020

The unique prime factor of A064078(k) is then a unique prime to base 2 (see A161509), but not a cyclotomic number.
Subsequence of A161508. In fact, subsequence of the set difference A161508 \ A072226.
In all known examples, A064078(k) is a prime. If A064078(k) was a prime power p^j with j>1, then p would be both a Wieferich prime (A001220) and a unique prime to base 2.
Subsequence of A093106 (the characterization of A093106 can be useful when searching for more terms).
Should this sequence be infinite?

Henri Lifchitz and Renaud Lifchitz, Phi(258121,2)/719.
Wikipedia, Unique prime, section Binary unique primes.

Cf. A019320, A064078, A093106, A072226, A144755, A161508, A161509, A247071.

for(n=1,+oo,c=polcyclo(n,2); c % n < 2 && next(); c/=(c%n); ispseudoprime(if(ispower(c,,&b),b,c))&&print1(n, ", "))

cp's OEIS Frontend

A161508 Numbers k such that 2^k-1 has only one primitive prime factor.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI