login
A073025
Primes p such that p-1 has a prime factor q > p^(3/4).
2
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
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 23 2002
STATUS
approved