|
%I #12 Jun 07 2018 02:56:06
%S 433,587,1117,2411,4007,4993,5107,5147,5563,6703,6857,6971,7541,10847,
%T 12973,14951,18787,21221,24373,24527,27947,29201,30341,30643,30757,
%U 36913,37483,38321,39877,40487,42767,43451,45007,46301,47287,48883,49037
%N Primes p from A031924 such that A052180(primepi(p)) = 19.
%t 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 Cf. A031924, A031925.
%K nonn
%O 1,1
%A _Labos Elemer_, Feb 01 2000
|
