|
%I #15 Mar 05 2015 07:46:48
%S 2,7,29,37,41,59,79,89,197,281,311,431,491,571,607,617,673,683,751,
%T 997,1019,1051,1117,1217,1229,1297,1321,1367,1571,1583,1607,1657,1669,
%U 1871,1949,2309,2447,2503,2531,2687,2903,3413,3613,3739,3881,3929,4057,4073,4219
%N Primes of the form floor(n^sqrt(2)).
%H Charles R Greathouse IV, <a href="/A180448/b180448.txt">Table of n, a(n) for n = 1..10000</a>
%F A134886 INTERSECT A000040.
%t Select[Floor[Range[0,500]^Sqrt[2]],PrimeQ] (* _Harvey P. Dale_, May 20 2011 *)
%o (PARI) for(n=1, 154392, if(ispseudoprime(t=floor(n^sqrt(2))), print1(t", "))); v \\ _Charles R Greathouse IV_, Feb 18 2011
%K easy,nonn
%O 1,1
%A _William A. Tedeschi_, Sep 07 2010
%E Formula rewritten by _R. J. Mathar_, Sep 09 2010
|
