|
|
A370009
|
|
a(n) is the least prime greater than 3*prime(n).
|
|
1
|
|
|
7, 11, 17, 23, 37, 41, 53, 59, 71, 89, 97, 113, 127, 131, 149, 163, 179, 191, 211, 223, 223, 239, 251, 269, 293, 307, 311, 331, 331, 347, 383, 397, 419, 419, 449, 457, 479, 491, 503, 521, 541, 547, 577, 587, 593, 599, 641, 673, 683, 691, 701, 719, 727, 757
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
5 < 3*2 < 7 < 3*3 < 11 < 13 < 3*5 < 17, so (a(1), a(2), a(3)) = (7,11,17).
|
|
MATHEMATICA
|
Table[NextPrime[Prime[PrimePi[3*Prime[n]]]], {n, 1, 200}]
|
|
PROG
|
(PARI) a(n) = nextprime(3*prime(n)); \\ Michel Marcus, Feb 10 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|