|
|
A072986
|
|
Least k such that Product_{i=1..k} (prime(i) + 1) >= n*Product_{i=1..k} prime(i).
|
|
3
|
|
|
1, 2, 6, 11, 24, 52, 113, 248, 553, 1245, 2828, 6481, 14963, 34770, 81253, 190836, 450202, 1066269, 2534269, 6042375, 14447465, 34632759
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a = b = k = 1; Do[ While[a = a*Prime[k]; b = b*(Prime[k] + 1); b < n*a, k++ ]; Print[k]; k++, {n, 1, 16}]
|
|
PROG
|
(PARI) a(n)=if(n<0, 0, s=1; while(prod(i=1, s, prime(i)+1)<prod(i=1, s, prime(i))*n, s++); s);
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|