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 A168034 #6 May 13 2013 01:54:11 %S A168034 2,3,5,7,17,43,59,61,109,229,263,269,419,443,457,617,997,1069,1301, %T A168034 1373,1483,1523,1543,1801,1877,1949,2053,2269,2309,2411,2503,2551, %U A168034 2633,2731,2741,2887,2963,3023,3181,3323,3359,3571,3607,3673,4129,4153,4423,4483 %N A168034 Primes p for which floor(p^phi) is prime, where phi is the golden ratio. %H A168034 Charles R Greathouse IV, <a href="/A168034/b168034.txt">Table of n, a(n) for n = 1..10000</a> %t A168034 $MaxExtraPrecision=6!; Select[Prime[Range[5! ]],PrimeQ[Floor[ #^GoldenRatio]]&] %o A168034 (PARI) phi=(1+sqrt(5))/2;forprime(p=2,1e4,if(isprime(floor(p^phi)),print1(p", "))) \\ _Charles R Greathouse IV_, Jul 29 2011 %K A168034 nonn %O A168034 1,1 %A A168034 _Vladimir Joseph Stephan Orlovsky_, Nov 17 2009