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,1

Links

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

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 *)

Crossrefs

Cf. A055496.

Sequence in context: A037488 A129669 A037568 * A085387 A147970 A027139

Adjacent sequences: A076653 A076654 A076655 * A076657 A076658 A076659

Keyword

nonn

Author

Cino Hilliard, Oct 24 2002

Extensions

Edited by Don Reble, May 03 2006

Status

approved