login
A137271
Numbers n such that pi(n^2)=pi((n-k)^2)+n, where k=A000193(n).
0
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,1
MATHEMATICA
Do[k=Round[Log[n]]; If[PrimePi[n^2]==PrimePi[(n-k)^2]+n, Print[n]], {n, 1, 10^5, 1}]
CROSSREFS
Sequence in context: A146526 A120626 A046058 * A131356 A191119 A089410
KEYWORD
nonn
AUTHOR
Manuel Valdivia, Mar 13 2007
STATUS
approved