A052237 - OEIS

A052237

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

1453, 3313, 5981, 6911, 8707, 15467, 22721, 25447, 25633, 26627, 29167, 30097, 31957, 42187, 42373, 42437, 46093, 48017, 48947, 49627, 51673, 52667, 58061, 59113, 62897, 68477, 74923, 78643, 78707, 105613, 106357, 107351, 108217

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

MATHEMATICA

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

CROSSREFS

Cf. A031924, A031925, A052180.

Sequence in context: A250148 A068280 A020396 * A031613 A289822 A145529

Adjacent sequences: A052234 A052235 A052236 * A052238 A052239 A052240

KEYWORD

nonn

AUTHOR

Labos Elemer, Feb 01 2000

STATUS

approved