A052237 - OEIS

%I #13 Jun 07 2018 02:56:57

%S 1453,3313,5981,6911,8707,15467,22721,25447,25633,26627,29167,30097,

%T 31957,42187,42373,42437,46093,48017,48947,49627,51673,52667,58061,

%U 59113,62897,68477,74923,78643,78707,105613,106357,107351,108217

%N Primes p from A031924 such that A052180(primepi(p)) = 31.

%t 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 Cf. A031924, A031925, A052180.

%K nonn

%O 1,1

%A _Labos Elemer_, Feb 01 2000