|
%I #13 Feb 16 2021 00:59:01
%S 41,61,71,83,97,101,127,131,139,149,151,167,181,191,193,211,223,227,
%T 241,251,271,281,293,307,311,331,347,349,367,383,397,401,409,419,421,
%U 431,433,443,457,461,479,487,491,499,503,521,523,541,557,571,587,601
%N Primes p such that sigma(p-6) > p.
%t Select[Prime[Range[3,150]],DivisorSigma[1,#-6]>#&] (* _Harvey P. Dale_, Jul 01 2017 *)
%Y Cf. A067831.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 08 2002
|
