|
%I #12 Jan 25 2023 09:22:57
%S 4,5,5,5,7,7,9,8,6,7,9,10,13,8,7,15,6,11,10,7,14,19,12,9,21,16,10,12,
%T 15,10,25,9,9,9,20,17,8,16,12,22,31,12,33,12,8,18,16,21,26,14,10,39,
%U 10,23,18,18,11,7,43,14,22,45,32,16,12,20,27,34,49,24,10,11,16,11,22,18,15,55
%N a(n) = A338038(A002808(n)).
%e Let k(n) = n-th composite (A002808(n)). Then:
%e a(4)=5 because k(4) = 9 = 3^2 and 5=3+2;
%e a(9)=6 because k(9) = 16 = 2^4 and 6=2+4;
%e a(10)=7 because k(10) = 18 = 2*3^2 and 7=2+3+2.
%p A141276 := proc(n) local a, ifs, p, c ; if not isprime(n) then a := 0 ; ifs := ifactors(n)[2] ; for p in ifs do a := a + op(1,p) ; if op(2,p) > 1 then a := a+ op(2,p) ; fi; od: printf("%d,",a) ; end if; return ; end: for n from 4 to 200 do A141276(n); end do; # _R. J. Mathar_, Apr 28 2010
%Y Cf. A002808, A338038.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Aug 08 2008
%E Entries checked by _R. J. Mathar_, Apr 28 2010
%E Edited (with clearer definition) by _N. J. A. Sloane_, Jun 15 2021
|
