OFFSET
1,2
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..6955
FORMULA
MATHEMATICA
Select[Range@90, PrimeQ[DivisorSigma[0, #] + 1] &] (* Vincenzo Librandi, Jan 20 2019 *)
PROG
(PARI) isok(n) = isprime(numdiv(n)+1); \\ Michel Marcus, Jan 20 2019
(Magma) [n: n in [1..100] | IsPrime(NumberOfDivisors(n)+1)]; // Vincenzo Librandi, Jan 20 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Oct 16 2009
STATUS
approved