login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes p such that sigma(p-6) > p.
1

%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