1,1

(PARI) primeslessxn2(n, p) = \primes < p^n if prime { sr=0; for(x=0, n, y=pi(p^x); if(y<>0, sr+=1.0/y); if(isprime(y), print1(y", ")); ); print(); print(sr) }

Sequence in context: A119112 A109791 A119777 this_sequence A083471 A078691 A113028

Adjacent sequences: A087862 A087863 A087864 this_sequence A087866 A087867 A087868

nonn

Cino Hilliard (hillcino368(AT)gmail.com), Oct 27 2003