|
%I #17 May 14 2020 17:21:45
%S 1,2,26,48,108,292,6471,8147,20745,30803,38806,79760,254050
%N Integer quotients pi(m*prime(m))/m.
%F a(n) = A000720(A084295(n)*A084297(n))/A084295(n).
%t Do[s=PrimePi[n*Prime[n]]/n; If[IntegerQ[s], Print[s]], {n, 1, 100000}]
%Y Cf. A000040, A000720, A057855, A084295, A084297.
%K nonn,more
%O 1,2
%A _Labos Elemer_, May 27 2003
%E a(9)-a(12) from _Giovanni Resta_, Sep 02 2019
%E a(13) from _Chai Wah Wu_, May 14 2020
|
