OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..33
EXAMPLE
p(233084) = 3242497, Pi(233084) = 20679; sum = 3263176 = 14*233084; order of quotient is log(n).
(prime(1505984) + pi(1505984))/1505984 = (23981141 + 114603)/1505984 = 16.
MATHEMATICA
Do[ If[ IntegerQ[ (Prime[n] + PrimePi[n]) /n ], Print[n]], {n, 1, 5*10^7} ]
Select[ Range[10^8], IntegerQ[(Prime[ # ] + PrimePi[ # ])/ # ] & ]
PROG
(PARI) k=0; n=0; forprime(p=2, 4e9, if(isprime(n++), k++); if((k+p)%n==0, print1(n", "))) \\ Charles R Greathouse IV, Aug 21 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 16 2001
EXTENSIONS
a(17)-a(19) from Donovan Johnson, Aug 21 2011
a(20)-a(28) from Giovanni Resta, Oct 15 2019
STATUS
approved