|
| |
|
|
A076656
|
|
a(1) = 2; a(n) is smallest prime > 3*a(n-1).
|
|
8
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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 [From Vladimir Orlovsky (4vladimir(AT)gmail.com), May 27 2009]
|
|
|
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 (hillcino368(AT)gmail.com), Oct 24 2002
|
|
|
EXTENSIONS
| Edited by Don Reble (djr(AT)nk.ca), May 03 2006
|
| |
|
|
