The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A316100 Numbers k such that k is deficient but k+1 is abundant, that is, a deficient number followed by an abundant number. 0

%I

%S 11,17,19,23,29,35,39,41,47,53,55,59,65,69,71,77,79,83,87,89,95,99,

%T 101,103,107,111,113,119,125,131,137,139,143,149,155,159,161,167,173,

%U 175,179,185,191,195,197,199,203,207,209,215,219,221,223,227,233,239

%N Numbers k such that k is deficient but k+1 is abundant, that is, a deficient number followed by an abundant number.

%e 11 is deficient and 12 is abundant.

%e 17 is deficient and 18 is abundant.

%p with(numtheory): select(n->sigma(n)<2*n and sigma(n+1)>2*(n+1),[\$1..400]);

%t Select[Range@ 240, And[DivisorSigma[1, #] < 2 #, DivisorSigma[1, # + 1] > 2 (# + 1)] &] (* _Michael De Vlieger_, Jul 01 2018 *)

%o (GAP) Filtered([1..400],n->Sigma(n)<2*n and Sigma(n+1)>2*(n+1));

%o (PARI) isok(n) = (sigma(n) < 2*n) && (sigma(n+1) > 2*(n+1)); \\ _Michel Marcus_, Jul 02 2018

%Y Cf. A005100, A005101.

%K nonn

%O 1,1

%A _Muniru A Asiru_, Jul 01 2018

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 26 20:34 EDT 2021. Contains 347672 sequences. (Running on oeis4.)