This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A283652 #29 Jul 05 2020 12:56:21 %S A283652 5505023,8847359,13271039,17915903,22118399,24379391,27131903, %T A283652 29859839,31981567,32440319,34406399,36863999,37486591,38273023, %U A283652 42205183,46448639,48496639,54001663,57016319,60948479,61439999,62128127,62705663,67184639 %N A283652 Primes p such that bigomega(p+1) = 20. %H A283652 Zak Seidov, <a href="/A283652/b283652.txt">Table of n, a(n) for n = 1..10000</a> %t A283652 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 A283652 Select[Prime[Range[4*10^6]],PrimeOmega[#+1]==20&] (* _Harvey P. Dale_, Jul 05 2020 *) %o A283652 (PARI) {p=4128767; while(p<=57016319, if(bigomega(1+p)==20, print1(p ",")); p=nextprime(p+2))} %Y A283652 Cf. A023514, A118883. %K A283652 nonn %O A283652 1,1 %A A283652 _Zak Seidov_, Mar 12 2017