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 A052237 #13 Jun 07 2018 02:56:57 %S A052237 1453,3313,5981,6911,8707,15467,22721,25447,25633,26627,29167,30097, %T A052237 31957,42187,42373,42437,46093,48017,48947,49627,51673,52667,58061, %U A052237 59113,62897,68477,74923,78643,78707,105613,106357,107351,108217 %N A052237 Primes p from A031924 such that A052180(primepi(p)) = 31. %t A052237 f[p_] := Max[FactorInteger[#][[1, 1]] & /@ Range[ p+1, NextPrime[p] - 1]]; Select[Prime@ Range@ 10300, NextPrime[#] == # + 6 && f[#] == 31 &] (* _Giovanni Resta_, May 30 2018 *) %Y A052237 Cf. A031924, A031925, A052180. %K A052237 nonn %O A052237 1,1 %A A052237 _Labos Elemer_, Feb 01 2000