%I #6 Feb 27 2020 11:28:04
%S 23,47,59,83,107,167,179,227,263,269,293,317,347,359,383,389,467,479,
%T 503,509,557,563,587,653,719,773,797,839,863,887,983,1019,1109,1187,
%U 1229,1283,1307,1319,1367,1399,1439,1447,1487,1493,1523,1543,1579,1619,1627,1637
%N Primes p such that p-1 has a prime factor q > p^(3/4).
%p 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:
%t Select[Prime[Range[300]],FactorInteger[#-1][[-1,1]]>Surd[#^3,4]&] (* _Harvey P. Dale_, Feb 27 2020 *)
%Y Cf. A005384, A005385, A073024, A073026.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Aug 23 2002
|