OFFSET
1,1
COMMENTS
a(30) > 2*10^12. - Giovanni Resta, Mar 31 2017
EXAMPLE
a(3)= 55: n= 55: phi(n)+pi(n)= 40+16= 56 which equals n+1= 55+1= 56.
a(4)= 65: n= 65: phi(n)+pi(n)= 48+18= 66 which equals n+1= 65+1= 66.
MAPLE
with(numtheory): KD:= proc() local a, b; a:= n+1; b:=phi(n) +pi(n); if a=b then RETURN (n); fi; end: seq(KD(), n=1..10000000);
MATHEMATICA
Do[If [ PrimePi[n]+EulerPhi[n] == n+1, Print[n]], {n, 100000000}]
PROG
(PARI) isok(n) = eulerphi(n)+primepi(n) == n + 1; \\ Michel Marcus, Apr 01 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
K. D. Bajpai, Dec 05 2013
EXTENSIONS
a(23)-a(24) from T. D. Noe, Dec 05 2013
a(25)-a(29) from Giovanni Resta, Mar 31 2017
STATUS
approved