|
Search: id:A118796
|
|
|
| A118796 |
|
Primes p such that the nearest integer to p * A is prime, where A is the Glaisher-Kinkelin constant. |
|
+0
1
|
|
| 2, 13, 23, 29, 37, 41, 79, 107, 127, 149, 211, 239, 263, 313, 383, 389, 397, 439, 467, 509, 547, 631, 673, 743, 757, 773, 787, 827, 829, 907, 997, 1019, 1061, 1091, 1231, 1297, 1367, 1451, 1459, 1487, 1543, 1559, 1601, 1609, 1613, 1627, 1637, 1699, 1721
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
lst={}; Do[p=Prime[n]; If[PrimeQ[Round[p*Glaisher]], AppendTo[lst, p]], {n, 10^3}]; lst
|
|
CROSSREFS
|
A074962
Sequence in context: A090519 A018540 A045388 this_sequence A045389 A090528 A094535
Adjacent sequences: A118793 A118794 A118795 this_sequence A118797 A118798 A118799
|
|
KEYWORD
|
nonn,easy,new
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 25 2008
|
|
EXTENSIONS
|
Edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Nov 11 2009
|
|
|
Search completed in 0.002 seconds
|
