|
%I #12 Jan 12 2023 19:24:40
%S 19,29,31,37,43,53,59,61,67,73,79,89,97,103,109,127,137,139,149,151,
%T 157,163,173,179,181,191,193,199,211,223,229,239,241,251,257,263,269,
%U 271,277,283,293,307,313,331,337,347,349,359,367,373,379,389,397,409
%N Primes p such that sigma(p-4) > p.
%t Select[Prime[Range[3,100]],DivisorSigma[1,#-4]>#&] (* _Harvey P. Dale_, Jan 12 2023 *)
%Y Cf. A067830.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 08 2002
|
