A063767
Smallest prime > 7^n.
Original entry on oeis.org
2, 11, 53, 347, 2411, 16811, 117659, 823547, 5764817, 40353611, 282475267, 1977326753, 13841287217, 96889010447, 678223072853, 4747561510009, 33232930569607, 232630513987231, 1628413597910497, 11398895185373167
Offset: 0
-
NextPrime[ n_Integer ] := (k = n + 1; While[ !PrimeQ[ k ], k++ ]; k); Table[ NextPrime[ 7^n ], {n, 0, 22} ]
NextPrime[7^Range[0,20]] (* Harvey P. Dale, Nov 22 2023 *)
A340959
Table read by antidiagonals of the smallest prime >= n^k, n >= 1 and k >= 0.
Original entry on oeis.org
2, 2, 2, 2, 2, 2, 2, 3, 5, 2, 2, 5, 11, 11, 2, 2, 5, 17, 29, 17, 2, 2, 7, 29, 67, 83, 37, 2, 2, 7, 37, 127, 257, 251, 67, 2, 2, 11, 53, 223, 631, 1031, 733, 131, 2, 2, 11, 67, 347, 1297, 3137, 4099, 2203, 257, 2, 2, 11, 83, 521, 2411, 7789, 15629, 16411, 6563
Offset: 1
Table begins:
2, 2, 2, 2, 2, 2, ...
2, 2, 5, 11, 17, 37, ...
2, 3, 11, 29, 83, 251, ...
2, 5, 17, 67, 257, 1031, ...
2, 5, 29, 127, 631, 3137, ...
...;
yielding the triangle:
2;
2, 2;
2, 2, 2;
2, 3, 5, 2;
2, 5, 11, 11, 2;
2, 5, 17, 29, 17, 2;
...
-
T[n_,k_]:=NextPrime[n^k-1];Flatten[Table[T[n-k,k],{n,11},{k,0,n-1}]] (* Stefano Spezia, Feb 01 2021 *)
-
T(n,k) = nextprime(n^k); \\ Michel Marcus, Feb 01 2021
Showing 1-2 of 2 results.
Comments