|
%I #29 Jul 05 2020 12:56:21
%S 5505023,8847359,13271039,17915903,22118399,24379391,27131903,
%T 29859839,31981567,32440319,34406399,36863999,37486591,38273023,
%U 42205183,46448639,48496639,54001663,57016319,60948479,61439999,62128127,62705663,67184639
%N Primes p such that bigomega(p+1) = 20.
%H Zak Seidov, <a href="/A283652/b283652.txt">Table of n, a(n) for n = 1..10000</a>
%t p = 4128767; While[p<=57016319, If[PrimeOmega[1 + p] == 20, Print[p,", "]]; p = NextPrime[p + 2]] (* _Indranil Ghosh_, Mar 13 2017, after the PARI program from the author *)
%t Select[Prime[Range[4*10^6]],PrimeOmega[#+1]==20&] (* _Harvey P. Dale_, Jul 05 2020 *)
%o (PARI) {p=4128767; while(p<=57016319, if(bigomega(1+p)==20, print1(p ",")); p=nextprime(p+2))}
%Y Cf. A023514, A118883.
%K nonn
%O 1,1
%A _Zak Seidov_, Mar 12 2017
|
