|
%I #11 May 13 2018 02:09:36
%S 0,1,4,7,604,7552,28720,43501,176868,3016559
%N Quotients arising in A073162: A046992(n)/n if n is in A073162.
%F Integer values of s(n)=A046992(n)/n.
%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, Sum(17)/17 = 4 = a(3).
%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, A073163, A073224.
%K nonn,more
%O 1,3
%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
|
