1,1
n is in the sequence iff n=phi(n)+pi(n)+1. Next term is greater than 75000000.
15 is in the sequence because phi(15)=8 & 15=A002808(8).
Do[If[n==EulerPhi[n]+PrimePi[n]+1, Print[n]], {n, 75000000}]
Cf. A100411, A002808, A037170.
Sequence in context: A138109 A072521 A130178 * A095032 A187918 A190747
Adjacent sequences: A100407 A100408 A100409 * A100411 A100412 A100413
more,nonn
Farideh Firoozbakht (mymontain(AT)yahoo.com), Dec 01 2004