A073025 Primes p such that p-1 has a prime factor q > p^(3/4).

23, 47, 59, 83, 107, 167, 179, 227, 263, 269, 293, 317, 347, 359, 383, 389, 467, 479, 503, 509, 557, 563, 587, 653, 719, 773, 797, 839, 863, 887, 983, 1019, 1109, 1187, 1229, 1283, 1307, 1319, 1367, 1399, 1439, 1447, 1487, 1493, 1523, 1543, 1579, 1619, 1627, 1637

Offset

1,1

Links

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

Maple

with(numtheory); a := []; for i from 2 to 1000 do p := ithprime(i); t1 := factorset(p-1); q := t1[nops(t1)]; if q^4 > p^3 then a := [op(a), p]; fi; od:

Mathematica

Select[Prime[Range[300]], FactorInteger[#-1][[-1, 1]]>Surd[#^3, 4]&] (* Harvey P. Dale, Feb 27 2020 *)

Crossrefs

Cf. A005384, A005385, A073024, A073026.

Sequence in context: A185935 A052159 A097361 * A209193 A201019 A244092

Adjacent sequences: A073022 A073023 A073024 * A073026 A073027 A073028

Keyword

nonn

Author

N. J. A. Sloane, Aug 23 2002

Status

approved