A074817 Numbers n such that the number of primes between n^2 and (n+1)^2 = the number of primes between n and Reverse(n) (inclusive).

90, 102, 255, 306, 347, 357, 460, 850, 2274, 3430, 3620, 3908, 4038, 4140, 4309, 5050, 5650, 6040, 6840, 27320, 31336, 33076, 40130, 48140, 50130, 59340, 63340, 65440, 69250, 90270, 94660, 182010, 185773, 247105

Offset

1,1

Links

Table of n, a(n) for n=1..34.

Mathematica

Do[r = FromDigits[ Reverse[ IntegerDigits[n]]]; If[ PrimePi[(n + 1)^2] - PrimePi[n^2] == Abs[ PrimePi[n] - PrimePi[r]] + If[ Min[r, n] && PrimeQ[ Min[r, n]], 1, 0], Print[n]], {n, 1, 125000}]

Crossrefs

Sequence in context: A088470 A147676 A045097 * A333745 A366966 A043224

Adjacent sequences: A074814 A074815 A074816 * A074818 A074819 A074820

Keyword

nonn,base

Author

Jason Earls, Sep 08 2002

Extensions

Edited and extended by Robert G. Wilson v, Sep 12 2002

Status

approved