%I #11 Jun 15 2013 01:51:37
%S 3,5,19,23,29,53,71,103,127,137,179,227,241,283,313,331,397,487,491,
%T 601,647,709,751,761,809,829,881,937,947,1051,1069,1093,1229,1259,
%U 1301,1319,1381,1423,1433,1453,1489,1571,1579,1609,1693,1787,1789,1901,1997,2029
%N Primes p such that the nearest integer to p * gamma is prime, where gamma is Euler's constant.
%H Vincenzo Librandi, <a href="/A118484/b118484.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=Prime[n];If[PrimeQ[Round[p*EulerGamma]],AppendTo[lst,p]],{n,10^3}];lst
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Aug 25 2008
%E Edited by _Charles R Greathouse IV_, Nov 11 2009
|