|
%I #15 May 10 2020 17:29:15
%S 2,5,7,11,17,29,47,83,149,251,431,733,1277,2203,3803,6599,11411,19777,
%T 34253,59333,102793,178067,308489,534431,925891,1604021,2778901,
%U 4814321,8340593,14449651,25033357,43369111,75135077,130168021,225510203
%N a(n) = the smallest prime > (1/EulerGamma)^n.
%C EulerGamma is Euler's constant (or the Euler-Mascheroni constant) gamma (A001620).
%C 1/EulerGamma = 1.7324547146006... (A098907).
%e The first prime > (1/EulerGamma)^6 = 27.03779975... is 29, so a(6) = 29.
%t Table[Prime[PrimePi[1/EulerGamma^n] + 1], {n, 1, 40}]
%t NextPrime/@Table[1/EulerGamma^n,{n,40}] (* _Harvey P. Dale_, May 10 2020 *)
%Y Cf. A001620 A098907.
%K nonn
%O 1,1
%A _Michel Lagneau_, Nov 21 2010
|
