|
%I #5 Mar 02 2019 23:19:54
%S 0,1,2,3,4,4,6,7,8,8,10,9,12,12,13,15,16,15,18,17,19,20,22,20,24,24,
%T 26,25,28,25,30,31,31,32,33,31,36,36,37,36,40,37,42,41,42,44,46,43,48,
%U 47,49,49,52,50,53,52,55,56,58,52,60,60,60,63,63,61,66,65,67,65,70,65,72,72,72
%N a(n) = n - A081707(n).
%F a(n) = A000027(n) - A081707(n) = n + A001222(n) - A000005(n).
%e a(1)=1-1. a(2)=2-1. a(3)=3-1. a(4)=4-1. a(5)=5-1. a(6)=6-2.
%p A081707 := proc(n) numtheory[tau](n)-numtheory[bigomega](n) ; end: A162906 := proc(n) n - A081707(n) ; end: seq(A162906(n),n=1..100) ; # _R. J. Mathar_, Jul 21 2009
%Y Cf. A000027, A069345, A081707.
%K nonn,easy
%O 1,3
%A _Juri-Stepan Gerasimov_, Jul 17 2009
%E Duplicate of 9 removed by _R. J. Mathar_, Jul 21 2009
|
