|
%I #11 Dec 19 2017 02:34:30
%S 0,3,3,6,5,9,7,11,10,13,11,17,13,17,17,20,17,23,19,25,23,25,23,31,26,
%T 29,29,33,29,37,31,37,35,37,37,44,37,41,41,47,41,49,43,49,49,49,47,57,
%U 50,55,53,57,53,61,57,63,59,61,59,71,61,65,67,70,67,73
%N a(n) = Sum_{i=1..floor(n/2)} floor((n+i)/i) - floor((n-i-1)/i).
%C It appears that the odd prime numbers are fixed points of the sequence.
%p A295220:=n->add(floor((n+i)/i)-floor((n-i-1)/i), i=1..floor(n/2)): seq(A295220(n), n=1..120); # _Wesley Ivan Hurt_, Nov 29 2017
%t Table[Sum[Floor[(n + i)/i] - Floor[(n - i - 1)/i], {i, Floor[n/2]}], {n, 60}]
%Y Cf. A000040.
%K nonn,easy
%O 1,2
%A _Wesley Ivan Hurt_, Nov 17 2017
|
