OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..1326
EXAMPLE
phi(786) + pi(786) = 260 + 137 = 397 which is prime, so 786 is in the sequence.
MAPLE
with(numtheory):K := proc(n) local a; a :=(phi(n)+ pi(n)); if isprime(a) then RETURN (n) fi: end: seq(K(n), n=1..1000); # K. D. Bajpai, Jul 18 2013
with(numtheory):K:=proc()local n, a, c; c:=1; for n from 1 to 10000 do; a:=(phi(n)+ pi(n)); if isprime(a) then lprint(c, n); c:=c+1; fi; od; end: K(); # K. D. Bajpai, Jul 18 2013
MATHEMATICA
Select[Range[200], PrimeQ[EulerPhi[#] + PrimePi[#]] &] (* G. C. Greubel, Jul 04 2017 *)
CROSSREFS
KEYWORD
nonn,less
AUTHOR
K. D. Bajpai, Jul 18 2013
STATUS
approved