A068356 Numbers k such that bigomega(k) = tau(prime(k)+1) where tau(k) = A000005(k).

88, 100, 198, 260, 306, 375, 384, 459, 540, 585, 714, 798, 825, 856, 864, 960, 1012, 1062, 1148, 1278, 1312, 1484, 1725, 1784, 1924, 1988, 2125, 2130, 2160, 2204, 2210, 2240, 2241, 2250, 2346, 2480, 2516, 2619, 2662, 2776, 2814, 2826, 2889, 2892, 2910

Offset: 1

Author

Benoit Cloitre, Feb 28 2002

Keywords

• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000005, A001222, A008329.

Programs

Mathematica

Select[Range[3000],PrimeOmega[#]==DivisorSigma[0,Prime[#]+1]&] (* Harvey P. Dale, Aug 18 2013 *)

PARI

isok(k) = bigomega(k) == numdiv(prime(k)+1); \\ Michel Marcus, May 10 2022