|
| |
|
|
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).
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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 * A043224 A039401 A044004
Adjacent sequences: A074814 A074815 A074816 * A074818 A074819 A074820
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Sep 08 2002
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 12 2002
|
| |
|
|
