|
%I #25 Jan 30 2024 11:42:25
%S 1,3,5,5,7,7,9,10,11,11,13,14,16,16,17,18,20,21,23,24,25,25,27,28,29,
%T 29,30,31,33,34,36,37,38,38,39,40,42,42,43,44,46,47,49,50,51,51,53,54,
%U 55,56,57,58,60,61,62,63,64,64,66,67,69,69,70,71,72,73,75,76,77,78,80,81
%N a(n) = n + pi(n) - pi(floor(n/2)), where pi = A000720.
%H Paolo Xausa, <a href="/A338363/b338363.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = n + A056171(n). - _Alois P. Heinz_, Nov 04 2020
%t A338363[n_] := PrimePi[n] - PrimePi[n/2] + n;
%t Array[A338363, 100] (* _Paolo Xausa_, Jan 30 2024 *)
%o (PARI) a(n) = n + primepi(n) - primepi(n\2); \\ _Michel Marcus_, Nov 04 2020
%Y Cf. A000720, A056171, A095117, A282029, A283312, A338362.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Nov 04 2020
|
