%I #15 Jul 04 2019 18:49:36
%S 3,19,23,37,47,53,59,71,83,97,149,157,173,199,263,397,431,599,743,757,
%T 883,941,971,1031,1061,1123,1381,1483,1657,1693,1747,1783,1801,1949,
%U 1987,2237,2957,3109,3331,3511,3557,3719,4001,4049,4073,4217,4241,4339
%N Primes of the form ceiling(k^1.5) for some integer k.
%H Vincenzo Librandi, <a href="/A070045/b070045.txt">Table of n, a(n) for n = 1..1000</a>
%e Ceiling(2^1.5) = 3 is a prime, so it is in the sequence.
%e Ceiling(3^1.5) = 6 is not prime, so it is not in the sequence.
%t Select[Ceiling[Range[400]^(3/2)], PrimeQ]
%o (PARI) for (n=1,1000,if (isprime(ceil(n^1.5)),write("prime15.txt",ceil(n^1.5))))
%Y The corresponding values of k are in A070044.
%K nonn,easy
%O 1,1
%A _Jon Perry_, May 03 2002
%E Edited by _Dean Hickerson_, May 07 2002
|