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 this_sequence A095032 A161925 A043477

Adjacent sequences: A100407 A100408 A100409 this_sequence A100411 A100412 A100413

more,nonn

Farideh Firoozbakht (mymontain(AT)yahoo.com), Dec 01 2004