A052235 Primes p from A031924 such that A052180(primepi(p)) = 19.

433, 587, 1117, 2411, 4007, 4993, 5107, 5147, 5563, 6703, 6857, 6971, 7541, 10847, 12973, 14951, 18787, 21221, 24373, 24527, 27947, 29201, 30341, 30643, 30757, 36913, 37483, 38321, 39877, 40487, 42767, 43451, 45007, 46301, 47287, 48883, 49037

Offset: 1

Author

Labos Elemer, Feb 01 2000

Keywords

• nonn

Crossrefs

Cf. A031924, A031925.

Programs

Mathematica

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 *)