OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[3000], PrimeOmega[#]==DivisorSigma[0, Prime[#]+1]&] (* Harvey P. Dale, Aug 18 2013 *)
PROG
(PARI) isok(k) = bigomega(k) == numdiv(prime(k)+1); \\ Michel Marcus, May 10 2022
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Feb 28 2002
STATUS
approved