A076656 a(1) = 2; a(n) is smallest prime > 3*a(n-1).

2, 7, 23, 71, 223, 673, 2027, 6089, 18269, 54829, 164503, 493523, 1480571, 4441721, 13325171, 39975553, 119926691, 359780077, 1079340313, 3238020943, 9714062893, 29142188683, 87426566057, 262279698173, 786839094529

Offset: 1

Author

Cino Hilliard, Oct 24 2002

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A055496.

Programs

Mathematica

PrimeNext[n_]:=Module[{k},k=n+1;While[ !PrimeQ[k],k++ ];k]; p=2;lst={p};Do[p=PrimeNext[3*p];AppendTo[lst,p],{n,2*4!}];lst (* Vladimir Joseph Stephan Orlovsky, May 27 2009 *)
NestList[NextPrime[3#]&,2,30] (* Harvey P. Dale, Aug 12 2016 *)

Extensions

Edited by Don Reble, May 03 2006