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 A052235 #12 Jun 07 2018 02:56:06 %S A052235 433,587,1117,2411,4007,4993,5107,5147,5563,6703,6857,6971,7541,10847, %T A052235 12973,14951,18787,21221,24373,24527,27947,29201,30341,30643,30757, %U A052235 36913,37483,38321,39877,40487,42767,43451,45007,46301,47287,48883,49037 %N A052235 Primes p from A031924 such that A052180(primepi(p)) = 19. %t A052235 Reap[For[p = 23, p < 50000, p = q, q = NextPrime[p]; If[q == p + 6 && Max[ FactorInteger[#][[1, 1]]& /@ Range[p+1, q-1]] == 19, Sow[p]]]][[2, 1]] (* _Jean-François Alcover_, Jan 29 2018 *) %Y A052235 Cf. A031924, A031925. %K A052235 nonn %O A052235 1,1 %A A052235 _Labos Elemer_, Feb 01 2000