|
1, 2, 6, 7, 14, 7, 30, 24, 30, 19, 60, 23, 72, 33, 46, 48, 90, 34, 124, 51, 82, 64, 144, 67, 148, 78, 118, 87, 240, 58, 232, 113, 150, 114, 200, 88, 288, 165, 202, 138, 332, 91, 352, 167, 202, 163, 384, 136, 372, 143, 258, 195, 500, 142, 360, 207, 318, 226, 552, 137
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
Conjecture: a(n) < n^2.
|
|
MATHEMATICA
|
f = Function[n, k = cnt = 0; While[cnt < n, k++; If[PrimeQ[k n + 1], cnt++]]; k]; Table[f[n], {n, 60}] (* Ivan Neretin, May 22 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|