%I #10 Dec 11 2021 04:36:33
%S 0,40,25,17,12,10,8,7,6,5,5,4,4,3,3,3,3,3,2,2,2,2,2,2,2,2
%N Rounded percentage of primes less than 10^n.
%C Please refer to the explanations and comments given in A006879 and A006880.
%F a(n) = pi(10^n)/10^(n-2) rounded.
%e There are 4 primes less than 10 (i.e., 2, 3, 5, 7), so a(1) = 40.
%t a[n_] := PrimePi[10^n]/10^(n-2) // Round;
%t (* or *) a[n_] := A006880[[n+1]]/10^(n-2) // Round; Table[Print["10^", n, " ", a[n], "%"]; a[n], {n, 0, 25}] (* _Jean-François Alcover_, Sep 27 2013 *)
%Y Cf. A000720, A006879, A006880, A007053, A040014, A006988.
%K nonn,base,hard,less
%O 0,2
%A _Jean-François Alcover_, Sep 27 2013
|