|
|
A003068
|
|
Problimes (third definition).
(Formerly M1038)
|
|
7
|
|
|
2, 4, 7, 11, 15, 19, 23, 28, 33, 38, 43, 48, 53, 58, 63, 68, 73, 79, 85, 91, 97, 103, 109, 115, 121, 127, 133, 139, 145, 151, 157, 163, 169, 175, 181, 187, 193, 199, 205, 211, 217, 224, 231, 238, 245, 252, 259, 266, 273, 280, 287, 294, 301, 308, 315, 322, 329
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
REFERENCES
|
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
MAPLE
|
a[1] := 2: for i from 1 to 150 do a[i+1] := ceil(a[i]+1/product((1-1/a[j]), j=1..i)): od: # James A. Sellers, Mar 07 2000
|
|
MATHEMATICA
|
a[1] = 2; a[n_] := a[n] = Ceiling[a[n-1] + 1/Product[1 - 1/a[j], {j, 1, n-1}]]; Table[a[n], {n, 1, 60}] (* Jean-François Alcover, Nov 18 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|