A137271 Numbers n such that pi(n^2)=pi((n-k)^2)+n, where k=A000193(n).

2, 5, 14, 17, 18, 43, 44, 54, 107, 121, 137, 144, 417, 424, 868, 990, 991, 1094, 2529, 2586, 2740, 2741, 2785, 2878, 2948, 3085, 3176, 3267, 3269, 3346, 7319, 7694, 7750, 7868, 7984, 8061, 8161, 8250, 8308, 8340, 21182, 22190, 22801, 23200, 57448

Offset: 1

Author

Manuel Valdivia, Mar 13 2007

Keywords

• nonn

Crossrefs

Cf. A000193, A000720.

Programs

Mathematica

Do[k=Round[Log[n]];If[PrimePi[n^2]==PrimePi[(n-k)^2]+n, Print[n]], {n,1,10^5,1}]