|
%I #11 Jun 17 2022 14:30:35
%S 0,3,68,259,5500628,1180641920,19503263760,46464766631,863653341852,
%T 306757978180563
%N Partial sums of Pi(k) arising in A073162.
%F Values of s(n) = A046992(n) such that s(n)/n is integer.
%e Sum of first 17 values of Pi(n) equals 0+1+2+2+3+3+4+4+4+4+5+5+6+6+6+6+7 = 68 = 4*17. To continue, see A073224.
%t s = 0; Do[s = s + PrimePi[n]; If[ IntegerQ[s/n], Print[{n, s, s/n}]], {n, 1, 10^8}]
%Y Cf. A046992, A000720, A073162, A073164 & A073224.
%K nonn
%O 1,2
%A _Labos Elemer_, Jul 18 2002
%E Edited and extended by _Robert G. Wilson v_, Jul 20 2002
%E a(10) from _Donovan Johnson_, Dec 15 2009
|
