Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #10 Jun 15 2013 01:51:33
%S 2,3,7,19,23,29,97,101,103,107,149,181,227,311,353,379,433,457,563,
%T 631,719,761,883,919,941,971,997,1049,1087,1223,1279,1291,1297,1321,
%U 1427,1447,1453,1531,1627,1699,1831,1861,1877,2039,2143,2207,2213,2239,2269
%N Primes p such that the nearest integer to p * phi is a prime, where phi is the golden ratio.
%H Vincenzo Librandi, <a href="/A117763/b117763.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=Prime[n];If[PrimeQ[Round[p*GoldenRatio]],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