|
|
A065540
|
|
a(n) is smallest prime > 3*a(n-1), a(1) = 3.
|
|
0
|
|
|
3, 11, 37, 113, 347, 1049, 3163, 9491, 28477, 85439, 256337, 769019, 2307059, 6921179, 20763541, 62290633, 186871907, 560615723, 1681847191, 5045541577, 15136624739, 45409874221, 136229622677, 408688868051, 1226066604179
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
NextPrim[n_Integer] := Block[ {k = n + 1}, While[ !PrimeQ[k], k++ ]; Return[k]]; a[1] = 3; a[n_] := NextPrim[ 3*a[n - 1]]; Table[ a[n], {n, 1, 30} ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|