A068356 - OEIS

%I #15 May 10 2022 11:17:42

%S 88,100,198,260,306,375,384,459,540,585,714,798,825,856,864,960,1012,

%T 1062,1148,1278,1312,1484,1725,1784,1924,1988,2125,2130,2160,2204,

%U 2210,2240,2241,2250,2346,2480,2516,2619,2662,2776,2814,2826,2889,2892,2910

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

%H Amiram Eldar, <a href="/A068356/b068356.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[3000],PrimeOmega[#]==DivisorSigma[0,Prime[#]+1]&] (* _Harvey P. Dale_, Aug 18 2013 *)

%o (PARI) isok(k) = bigomega(k) == numdiv(prime(k)+1); \\ _Michel Marcus_, May 10 2022

%Y Cf. A000005, A001222, A008329.

%K easy,nonn

%O 1,1

%A _Benoit Cloitre_, Feb 28 2002