This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A168035 #5 May 13 2013 01:49:11 %S A168035 2,5,7,17,61,617,7741,10691 %N A168035 Primes p for which floor(p^phi) and floor(phi^p) are prime. %t A168035 $MaxExtraPrecision=8!; Select[Prime[Range[3*6! ]],PrimeQ[Floor[ #^GoldenRatio]]&&PrimeQ[Floor[GoldenRatio^# ]]&] %o A168035 (PARI) phi=(1+sqrt(5))/2; forprime(p=2, 1e3, if(isprime(floor(p^phi)) && isprime(floor(phi^p)), print1(p", "))) \\ _Charles R Greathouse IV_, Jul 29 2011 %Y A168035 Intersection of A168033 and A168034. %K A168035 nonn,less %O A168035 1,1 %A A168035 _Vladimir Joseph Stephan Orlovsky_, Nov 17 2009