A267067 Primes p such that mu(p-2) = 1; that is, p-2 is squarefree and has an even number of prime factors, where mu is the Moebius function (A008683).

3, 17, 23, 37, 41, 53, 59, 67, 71, 79, 89, 97, 113, 131, 157, 163, 179, 211, 223, 239, 251, 269, 293, 307, 311, 331, 337, 367, 373, 379, 383, 397, 409, 419, 439, 449, 487, 491, 499, 503, 521, 547, 593, 599, 613, 631, 673, 683, 691, 701, 709, 719, 733, 739

Offset

1,1

Comments

From Robert Israel, Jan 10 2016: (Start)

Includes all members of A063638 except 11.

The first terms not in A063638 are 3 and 1367. (End)

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Moebius Function

Maple

select(p -> isprime(p) and numtheory:-mobius(p-2)=1, [seq(i, i=3..1000, 2)]); # Robert Israel, Jan 10 2016

Mathematica

Select[Prime[Range[200]], MoebiusMu[# - 2] == 1 &]

Prog

(Magma) [n: n in [3..1000] | IsPrime(n) and MoebiusMu(n-2) eq 1];
(PARI) isok(p) = isprime(p) && (p>2) && (moebius(p-2)==1); \\ Michel Marcus, Mar 08 2023

Crossrefs

Cf. A008683, A063638, A088179.

Sequence in context: A272176 A082372 A273407 * A322490 A351688 A206626

Adjacent sequences: A267064 A267065 A267066 * A267068 A267069 A267070

Keyword

nonn

Author

Vincenzo Librandi, Jan 10 2016

Status

approved