cp's OEIS Frontend

A338363 a(n) = n + pi(n) - pi(floor(n/2)), where pi = A000720.

%I A338363 #25 Jan 30 2024 11:42:25
%S A338363 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 A338363 29,30,31,33,34,36,37,38,38,39,40,42,42,43,44,46,47,49,50,51,51,53,54,
%U A338363 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 A338363 a(n) = n + pi(n) - pi(floor(n/2)), where pi = A000720.
%H A338363 Paolo Xausa, <a href="/A338363/b338363.txt">Table of n, a(n) for n = 1..10000</a>
%F A338363 a(n) = n + A056171(n). - _Alois P. Heinz_, Nov 04 2020
%t A338363 A338363[n_] := PrimePi[n] - PrimePi[n/2] + n;
%t A338363 Array[A338363, 100] (* _Paolo Xausa_, Jan 30 2024 *)
%o A338363 (PARI) a(n) = n + primepi(n) - primepi(n\2); \\ _Michel Marcus_, Nov 04 2020
%Y A338363 Cf. A000720, A056171, A095117, A282029, A283312, A338362.
%K A338363 nonn
%O A338363 1,2
%A A338363 _N. J. A. Sloane_, Nov 04 2020