login

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

First differences of A056737.
0

%I #6 Mar 11 2014 01:34:15

%S 1,1,-2,4,-3,5,-4,-2,3,7,-9,11,-7,-3,-2,16,-13,15,-17,3,5,13,-20,-2,

%T 11,-5,-3,25,-27,29,-26,4,7,-13,-2,36,-19,-7,-7,37,-39,41,-35,-3,17,

%U 25,-44,-2,5,9,-5,43,-49,3,-5,15,11,31,-54,56,-31,-27,-2,8,-3,61,-53,7,-17,67,-69,71,-37,-25,5,-11,3,71,-76,-2,39,43,-77,7,29,-15

%N First differences of A056737.

%H Omar E. Pol, <a href="http://www.polprimos.com/imagenespub/polprdipi.jpg">Illustration: Divisors and pi(x)</a>

%p A033676 := proc(n) local a, d; a := 0 ; for d in numtheory[divisors](n) do if d^2 <= n then a := max(a, d) ; fi; od: a; end:

%p A033677 := proc(n) local a, d; a := n ; for d in numtheory[divisors](n) do if d^2 >= n then a := min(a, d) ; fi; od: a; end proc:

%p A056737 := proc(n) A033677(n)-A033676(n) ; end proc:

%p [seq(A056737(n),n=1..120)] ;

%p DIFF(%) ;

%Y Cf. A033676, A033677, A056737, A147861, A163100, A163280, A163990.

%K easy,sign

%O 1,3

%A _Omar E. Pol_, Aug 12 2009