OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MAPLE
q:= p-> isprime(p) and nops(ifactors(p+1)[2])=nops(ifactors(p-1)[2]):
select(q, [$1..1000])[]; # Alois P. Heinz, May 08 2022
MATHEMATICA
Select[Prime[Range[200]], PrimeNu[#-1]==PrimeNu[#+1]&] (* Harvey P. Dale, Jun 28 2020 *)
PROG
(PARI) is(n)=omega(n-1)==omega(n+1) && isprime(n) \\ Charles R Greathouse IV, Sep 14 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Feb 23 2002
STATUS
approved