A166546 Natural numbers n such that d(n) + 1 is prime.

1, 2, 3, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 79, 80, 82, 83, 84, 85, 86, 87, 89, 90

Offset

1,2

Comments

Natural numbers n such that d(d(n)+1)= 2. - Giovanni Teofilatto, Oct 26 2009

The complement is the union of A001248, A030514, A030516, A030626, A030627, A030629, A030631, A030632, A030633 etc. - R. J. Mathar, Oct 26 2009

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..6955

Formula

{1} U A000040 U A030513 U A030515 U A030628 U A030630 U A030634 U A030636 U A137485 U A137491 U A137493 U ... . - R. J. Mathar, Oct 26 2009

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

Cf. A000005.

Cf. A073915. - R. J. Mathar, Oct 26 2009

Sequence in context: A028809 A337533 A028785 * A167759 A028812 A039251

Adjacent sequences: A166543 A166544 A166545 * A166547 A166548 A166549

Keyword

nonn

Author

Giovanni Teofilatto, Oct 16 2009

Status

approved