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,1

Links

Table of n, a(n) for n=1..37.

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

Crossrefs

Cf. A031924, A031925.

Sequence in context: A360652 A051964 A142686 * A165503 A142539 A059665

Adjacent sequences: A052232 A052233 A052234 * A052236 A052237 A052238

Keyword

nonn

Author

Labos Elemer, Feb 01 2000

Status

approved