|
Search: id:A076656
|
|
|
| A076656 |
|
a(1) = 2; a(n) is smallest prime > 3*a(n-1). |
|
+0 9
|
|
| 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; listen)
|
|
|
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 this_sequence A085387 A147970 A027139
Adjacent sequences: A076653 A076654 A076655 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|