A262462 Positive integers k with pi(k^3) a square, where pi(x) denotes the number of primes not exceeding x.
1, 2, 3, 14, 1122
Offset: 1
Examples
a(1) = 1 since pi(1^3) = 0^2. a(2) = 2 since pi(2^3) = 2^2. a(3) = 3 since pi(3^3) = 3^2. a(4) = 14 since pi(14^3) = pi(2744) = 400 = 20^2. a(5) = 1122 since pi(1122^3) = pi(1412467848) = 70576801 = 8401^2.
Programs
-
Mathematica
SQ[n_]:=IntegerQ[Sqrt[n]] f[n_]:=PrimePi[n^3] n=0;Do[If[SQ[f[k]],n=n+1;Print[n," ",k]],{k,1,1200}] Select[Range[1200],IntegerQ[Sqrt[PrimePi[#^3]]]&] (* Harvey P. Dale, Aug 21 2024 *)
Comments