|
%I #19 Jan 27 2023 13:31:56
%S 3,29,24391,14510715208481,3055388613462301256452407743005777548691
%N Mills primes, starting with 3.
%C For the standard Mills primes sequence, A051254, one starts with 2, and each successive term a(n) is the smallest prime greater than a(n-1)^3. This sequence uses the same definition but starts with 3.
%C a(6) has 119 digits and is too large to include.
%H Vincenzo Librandi, <a href="/A171883/b171883.txt">Table of n, a(n) for n = 1..7</a>
%H Robert Munafo, <a href="http://mrob.com/pub/math/nu-sequences.html#A171883">Mills primes, starting with 3</a>
%t p = 36/25; Table[p = NextPrime[p^3], {6}] (* From Alonso del Arte based on T. D. Noe's program for A051254, Oct 05 2011 *)
%t NestList[NextPrime[#^3]&,3,5] (* _Harvey P. Dale_, Feb 15 2014 *)
%o (Other) (MAXIMA) n:3 $ l:10^100 $ print(n) $ while (n<l) do ( n:n^3, n:next_prime(n), print(n) );
%Y Cf. A051254
%K nonn
%O 1,1
%A _Robert Munafo_, Feb 27 2010
%E Offset corrected by _Arkadiusz Wesolowski_, Oct 05 2011
| 